u™ 


LABEL OOOOOOOOOLINE  00178065CC EX O/RICOMMONSISFILE S=PATCHES/TSSMCP3FILE LINESLINE PRINTJENDe 0 7R 
FrLE: PATCHES/TSSMCP MONDAY 03/06/78 0406 PM 
$# PATCH NUMBER 101 FOR TSSMCP CONTAINS 001 CARDS, 
BEGIN OSt= 16 LIT"@SYSTEM HANGs Fa"3 00652400 
$: By DDD 
$: 7/16/74 
$i TR sees 
$: THIS PATCH RFFORMATS THE "SySTEM HANG” MESSAGE. 
BB ee te te ee A te tee ee a Te IR I REE E HR E KE AEEERERER REEK CAS 
S#PATCH NUMBER 102 FOR TSSMCP CONTAINS 010 CARDS 00000000 
SVOIOT 142180814 14218071 
Ip AITCATTCOIJ].€8%210) NEO 1 THEN 14218072 
REGIN 144218074 
Tisl; 14218076 
WHILe AITCI2.€8310) = 1 OO Itslei3 14218078 
FOR yisAIT£CO) STEP =1 UNTIL I DO 14218080 
AITCUFIJP=AITCUV 14218082 
END ELSE It=AlTCQI] +13 14218084 
AYTCOV@SePC(DUP) + 13 14218086 
ATTCTV3=—C1RLC8t3Rt1OVaMECICFTFI); 14218088 
$i THIS CHANGE CORRECTS aN FRRAR IN THE HANDLING OF cOBOL68a 90000000 
$:QPFN STATEMENTS THAT nCCur In THE INPUT OR OUTPUT PROCEDURE 90000005 
$tOr A SORT. THE FILES WILL NOW BE LErT OPEN AS THEY SHOULD. 90000010 


BY te de te te eH ae te te He eH ge a RH a RE KERNEN REAR EKER KM 
S#PATCH NUMBER 493 FOR rtSSmMcCP CONTAINS 4 CARDS, 
IF P OR I THEN 38608920 
$3 THIJS PATCH CORRECTS AN ERROR IN THE MCP PROCEDURE BACKCLOSE 
$t THAT WOULD SOMETIMES CAUSE wPUD" FILES NOT To BE PUNCHED EVEN WITH 
$1 THE OPTION AUTOPRNT SET, 
(ESE SP ESE SE SESS SCE Pe eee eee ee ee. ee ee ee ee ee ee ee ee ee es 
S#PATCH NUMBER 404 FOR rSSmcP cONTAINS 14 CARD 
SCHEDLOOKCKTR»sTYPF27) & ¢S26» XS27 16651000 
$: FIXES THE SCHEDULE LINE "XS KEYIN 
$8 kde ete ee eg Rl de ee ee RE RE EK E RE KEN EERE ERE EERE 
S#PATCH NUMBER 195 FOR TSSmMCP eQNTAINS 2 CARDS eo ® 
IF ¢Ti # PSEUDOMIXrPLIMIX]) # O THEN 39092165 
IF PACKETPAGE(CT1 * 32] # O THEN 39092167 
$8 BY KEN KOVACS 
$! DATA 4/22/74 
$: THIS PATCH CnhRRECTS aN INVALID INDEX IN CONTROL STATEe 
Be te ee te ee He ae tee We te WI a TTR OH ETE REE EEN EEAE KR RE 


S#PATCH NUMBER 106 FOR TSSMCP CONTAINS 8 CARDS, 


$ VOINT 97118404 07118100 

If PACKETCARD = 5 THEN 07118500 

IF PTYPE = 3 AND NOT CONTINUE AND NOT ADECK THEN 07139520 

IF PKTONLY THEN 20602515 

$ SET OMIT = NOTCPACKETS) 20609425 

IF PSEYDOLUNITNO#=32) = O THEN 20609430 

PRINTTHECOVERCCARD, OCoUNITNO»PSOURCE )3 20609435 

$ POP OMIT 20609440 
$! BY KFK 


$! DATE 02/20/75 

$1 MSA CENTRAL # DETROIT 

$3 THIS PATCH WILL ALLOW PACKETS AND DECKS TO BE MIXED. ALSO IF THE 
$: SPO OPTION "PKTONLY” IS SET THEN ALL DECKS WILL BE USED AS IF THEY 


$1 WERE PACKETS, THAT IS THE USE OF PKTONLY IS NOW CHANGED SO THAT 
$t IY NQ LONGER CONTROLS THRE LOADING OF DECKS BuT TO CONTROL OF THEIR 
$t USE. 
Boe tee te ee te ee i ee ee OR a a Me aE KEN HERE EERE EE 
$#PATCH NUMBER 107 FOR TSSMcCP CONTAINS 1 CARDS. 

HEADERC 4% eOaC@1001 F28 gat 1OJaSYSNOL 4% 4612)3 20289115 
$! BY KK 
$2 NATE 8/7/74 
$1 THIS PATCH WILL CORRECT «A CONDITION THAT COULD MARK THE PACKET 
$: PAGE AS BEING IN USE BY THE WRONG SYSTEM AFTER A HALT/LOAD> 
pice ar cept aol ale lak ei ol a alae lie al 
$# PATCH NUMBER 108 FOR TSSMCP CONTAINS 001 CARD, 

IF P2>0 THEN MOVEC15 P2744) ELSE ME T+4J}eP23 03120000 

$% BY DDD 
$81 DATE 8/29/74 
$: THIS PATCH ALLOWS ERROR MESSAGES LONGER THAN 60 CHARACTERS 
$: To BE PRINTED CORRECTLY mN A REMCTE TERMINAL THROUGH CANDE. 
SS wk eK te a yi eR NAHE KEENE EEHEE 


S#PATCH NUMBER 109 FOR TSSMCP CONTAINS 1 CARD. 


IF LOGLINE = O THEN LOGLINE © *= UNITNO3 20602502 
$! AY ood 
$$ DATE 9/19/74 
$3 THIS PATCH REPLACES A LINE OF CODE THAT WAS INADVERTENTLY 


$: LEFT OUT IN THE XV.3 RELEASFe WITHOUT THIS PATCHs ESPOISK 
$: IS NOT HANDLED CORRECTLY, INCORRECT LOG ENTRIES ARE MADE, 
$t AND SYSTEM HALTS CAN OCCUR. 
BR te ee te te ee te aR RK KK EEK RK EKA AKA KEKKEKKE KA KEKKE 
S#PATCH NUMBER 1410 FOR TSSMCP CONTAINS 1 CARDS. 
FIBC16],CCF}8=03% 41204000 
$: BY KK 
$i DATE 10/22/74 
$3 THIS PATCH CORRECTS THE TSSMCP"S HANDLING OF TAPE FILES 
$8 C, OSED WITH THE WCLOSEC<FILEID>**)" SYNTAX. THE TSSMCP 
$t WOULD "FORGET" THAT THE tAST 1/9 DONE ON THIS FILE WAS A 
$: REVERSE I/N BY ZEROING FIBE16)4 THUS WHEN THE FILE 1S 
$: OPENED AGAIN THE TSSMCP WOULD SPACECFORWARD) OVER 
$3 THE NEXT FILE AND THE FILE THAT WAS JUST CLOSED WOULD BE 
$: ACCESSED AGAIN, 
SESE SERESSO SSE TELSTRA PREECE LECT RETETEA ETE ELL LLL 
$# PATCH NUMBER 11141 FOR TSSuCP CONTAINS 1 CARDS, 
$ VOIDT 0609820, 06097600 
$: BY KK 
$! DATE 11/7 3/74 
$+ THIS PATCH WILL ALLOW A DISK SQUASH TO BO STOPPED ONLY AFTER IT 
$1 HAS FINISHED MOVING a FILE» IF STOPPED SOONER THEN THE AVAILABLE 
$t DISK TABLE COULD BE DAMMAGEnN, 
REC CSRS RES ESOS CSS PSS eee Ce Pee Tee Tee TCE PSCC SPSS CSS CCS SCC E SSL. Se 


$# PATCH NUMBER 112 FOR TSSMCP CONTAINS 1 CARDS, 


RRRMECH © NOT TWOCU) AND RRRMECHS X% LET STATUS FIND IT 04383900 
$! BY KK 
$t DATE 11/7 4/74 
$1 THIS PATCH CORRECTS A PRnBLEM WITH UNITS GOING NOT READY 


$: AND THEN NOT BEING PICKEn Up AS BEING READY WHEN THEY GO READY 
SEP C PEPER ESS SSC SSIS CSE Se LE See ee ee CCC CPPCC E TCL oS SEC SLT SLICES SCCLLOCC LC CLL SS: 
S$#PATCH NUMBER 113 FOR TSSMCP CONTAINS 5 CARDS 
Xt CLKE[Q] t= 03067500 
$ SET OMIT = NOTCNEWLOGGING) 03067600 


IF LOGSTOPPEDCPYMIX) THEN PROCTIMECPIMIx] ELSE 03067700 
$ POP OMIT 03067800 
PROCTIMELPiMIX) + CLOCK + PCRTR)3 03067900 
$1 BY KFK 
$3 DATE 11/27/74 
$1 THIS PATCH CORRECTS A CONDITION THAT CAUSED THE LOG OFF MESSAGE TO 


$t CONTAIN ERRONEOUS DATE. AS A RESULT OF THE NEW MCP COMPILE TIME 
gt OPTION “"NEWLOGGING" THE value OF PROCTIMECPIMIX] IS CHANGED TO 
$: INDICATE IF yHE PROGRAM sHOYyLO BE CHARGED FOR CPyu TIME OR NOT. 
$1 THIS WAS NOT TAKES INTO CONSIDERATION WHEN COMM2 PASSED THE VALUE 
$: TO BE USED AS "CLOCK By CANDEs 
BSW ete ee te ee eK a i ERK WER HEH ERK EKEKEHAEEK KKK EEK KEEEKKEK 
$#PATCH NUMBER 1414 FOR TSSMCP CONTAINS 2 CARDS 
$ VOIO 37284150 
IF U < 16 THEN FPBFFN+3]6COt17JePRNTABLECUIC3131793 37285410 
$: BY KFK 
$1 DATE 11/27/74 
$1 WHEN YSING A MYLTI@FILE pBT THE SECOND AND FOLLOWING FILES wILL 
$: SOMETIMES BE PRINTED SEVERAL TIMES, THIS WAS CAUSED BY A CONFLICT 
$1: IN THE USE OF A FIELD IN THE FPB OF A PROGRAMe THE SAME FIELD 
$3; THAT IS USED TO HOLD THE NUMBER OF COPIES CFROM A FILE EQUATE) 
$: IS ALSQ USED To HOLD THE PRy OF THE TAPE. THIS PROBLEM IS 
$: FIXED BY NOT MOVING THE PRN TO THE FBP UNTIL THE FILE IS CLOSED. 
$1 THEN WHEN THe FILE Is RENPENED A NEW SECTION OF THE FPR WILL BE 
$3 USED AND THIs WILL CONTAIN THE CORRECT VALUE FOR COPIES, 
BRS REERECTEAAAET RASC ESTOS ELTA ACCA CPC CPS EC PCCP PCP PPC CCS EC CEES eS 
S#PATCH NUMBER 115 FOR TSSMCP CONTAINS 1 CARDS 
KINDS+FIBC49eC 82433 IF F186 4330028840340 THEN REEL }|FIBL133402884033 39092000 
$! BY KFK 
$3 DATE 11/27/74 
$! IF THE REEL IS GIVEN ON a FILECEQUATION) CONTROL CARD IT WILL 
$; NOT BE USED BY THE MCP WHEN IT LOOKS FOR A TAPE FILE AT FILE 
$1 OPEN TIMEs THIS IS pecaUSE THE REEL NUMBER IS MOVED FROM THE 
$3; FIBe NOw THE REEL NUMBER Ig ONLY MOVED FROM THE FIB IF IT IS 
$t NONZERO 
ESE CESAR PERSO RCE RSET RCE PEE PCE REE R EERE R ERE ERE RSR ERR ERE SEPA SEER ERE EER ERA ROS ES 
S$#PATCH NUMBER 416 FOR TSSMCP cCOBTAINS 4 CARDS 
$ VOIDT 3802408, 38024010 
$1 BY KFK 
$! DATE 12/23/74 
$3 IF A PROGRAM READS A NIsx FILE THAT HAS A ROW SIZE THAT Is LESS 
$! THAN THE PROGRAMS BUrFER SIZ7E* THE MCP WILL ONLY GET A CORE 
$: BUFFER THE SIZE oF THE OTSK FILE"S ROW. BUT ANY PROGRAM THAT 
$: USES THE BUFFER WITHOUT GOING THUR THE INTRINSICS WILL NOT 
$: KNOW THAT THE BUFFER SIZE HaS BEEN CHANGEDS THEREFORE» AN INVALID 
$: LINK MAY OCCURE IF ONE TRIES TO USE THE PART OF THE BUFFER THAT 
$s! IS NOT THERE, 
Saw ee Ke REE KAA EH KEE EKER EKKE KKK NEHER 
S#PATCH NUMBER 117 FOR TSSMAP CONTAINS 2 CARDS 
IFCNBEFIAND FOURMASK)e(1:35)740 THEN GO CLOSEITS 06058630 
TFCNBLF+57AND NINEMASK).C1%28]40 THEN 06058640 
$s BY DDD 
$! DATE 12727774 
$! THIS PATCH CORRECTS A PROBLEM THaT WOULD CAUSE SOME FILES TO 
$t BE MARKED IN USE AFTER A HAL T/LOAD ON A SHAREDISK SYSTEM. 
SR ee ee ee a ee ay ae a EKER KEE KER RAKE EEN Ka 
S#PATCH NUMBER 418 FOR TSSMCP CONTAINS 1 CARD 


IF COUNT <O THEN GO To STARTS 
$:By pDDD 
$12/5/75 
S$:SOFTWARE FLASH NUMBER 68 
$i1IF TWO LIBMAIN/OISKS ARE BOTH WAITING FOR THE SAME TAPE 10 BECOME 
$tREADYs ONE COPY WILL BE ASSIANED THE CORRECT TAPE AND THE OTHER 
$:COPY OF LIBMAIN WILL RE ASSIGNED TO MTA, 
SC ae ee ee a a REE EEE KEENE RYE EERE ERE RE RRA 
$#PATCH NUMBER 119 FOR TSSuCP CONTAINS 34 CARDS, 
REAL BVD»UBLKSZ.SPR3 
BOLE=CMCCT2 eSPaCE(41)11841(8238%10)3 
IF HDRTYPE NEQ 3 
THEN FOR NT1%=15 STEP 1 UNTIL NT2 DO BCLENTLeSl]teHCNTII 
ELSE FOR NT4%2=220 STEP { UNTIL NT24+5 DO 
BCLUONT1<10] 12H NT1I3 
UBLKSZ:=NT923 
IF (NT4$sHO27,65%23) = 2) THEN % DECIMAL (4"BIT) 
BCLPO]t=CSPRIZNT2 OYV 30 + CNT2 MOD 30 NEQ 9))& & SEGMTS/BLOCK 
NT10123424473 % WORDS/RECORD 
IF HDORTYPE GEQ@ 2 THEN % FIguRE OUT EOF USING B6700 FORMULA 
BEGIN 
STREAM(B8tsO 8 WisyE141)3 
BEGIN SIl:*_Oc WS DIt= LAC BS DIs=DI +43 SKIP 4 DB; 
20cIF SB THEN nSt=SET ELSE DSt=sRESETS SKIP 1 SB)3 
ENDS 
BVO3sP3; % BITS CF VALTD naTA IN LAST SEGMT 
IF HO2).0821) ; 
THEN IF (NT2t2H(23.(05:31)s2 
THEN BEGIN NTita#l23 NT4%=33 ENO 
ELSE IF NT2s4 
THEN BEGIN NT4t=63 NT4t8=73 END 
ELSE BEGIN Nrits83 NT42=s53 END 
ELSE BEGIN NTq:=13 NT4at2473 ENDS 
NT2%=CCHL14),020%2R) MND SPB)XNT1x30) 
+((BVD + NT4) DIV (48 DIV NT1))3 
NTyf=yr NTO LSS URLKSZ THEN NT2 ELSE UBLKSZ3 
NT2FENT1+CHC149,020%284 Orv SPB)XNT3IXCNT423HL33,0322163)3 
END3 
BCLO7It=IF HORTYPE GEQ 2 THEN CNT24+NT491) DIV QT4 © 1 
FLSE H(4]; 
SVOINT 
Htz(MCSPACE C42 
HisHe4y 
$ITSSMCPs 4208 
$1 B6700 TAPFS WITH NEW HEADERS 
SITHTS CHANGE ALLOWS THE B570q LIBRARY MAINTENANCE To LOAD FILES 
$i1FROM TAPES WHICH HAVE BEEN CREATED ON A 686700 WITH NEW HEADER 
$tFORMATS OF TYPE 2 ANN 3, 
$3( PRY 4208 ) 
Sree NUMBER 121 FOR TSSMCP CONTAINS 11 CARDS, 
$VOIDT 


1£3008!38%10)3 
$3831 


)] 
C8%38:10);3 


_ OPTNSSCN$ PROGL29}3%=03 
DIss_Oc AS SIt=_LOC H3 SKIP 1 DBS DsSteSETs 
$ SET OMIT = NOT BeSO0OLOAD 
TF B6500 AND CNOT DESTIN.£Ci21]) THEN 
BEGIN STREAMCTMPt=TMPt=sPACE(10))3 
DSt=32LIT"#p6700 TAPE TO TAPE NOT ALLOWEDeN3 


37240050 


27990410 
27993900 
27994200 
27994210 
27994220 
27994230 
27995310 
27995600 
27996300 
27996505 
27996510 
27996515 
27996520 
27996525 
27996530 
27996535 
27996540 
27996545 
27996550 
27996555 
27996560 
27996565 
27996570 
27996575 
27996580 
27996585 
27996590 
27996595 
27996600 
27996605 
27996610 
27996800 
28070000 
28274200 


20566800 
20566817 
27996675 
28475605 
28475610 
28475620 
28475630 


SPOUTCTMP)$ 28475640 

ABORT3 28475650 

END3 28475660 

$ PNP OMIT 28475665 


$tTSSMCP» 42115* 
$3 LIBRARY MAINT. CORRECTIONS 

$tTHIS CHANGE PERFORMS THE FOLLOWING! 

S$} Ae CORRECTS MISHANDLING nF ESPDISK SEGMENTS DURING ABORT» 

$! Be. MAKES HEADERS CREATED FROM COPYING B6700 TAPE FILES "NEW" 
$3 TYPE HEADERS AnD 

$2 Ce NISALLOWS TRANSFERS FROM B6700 SOURCE TAPES DIRECT TO TAPE 


$3 BECAUSE OF POSSIBLE BAD SEGMENTS PER ROW INFORMATION IN THE 
$1 B6700 HEADER, ATTEMPTS AT SUCH TRANSFERS WILL CAUSE ABORTION 
$3 WITH THE FOLLOWING MESSAGE 3 

$1 "#B6700 TAPE Tn TAPE NOT ALLOWED", 

S:WARNINGs IN THE "COPY* CONTROL CARDs THE MAXIMUM NUMBER OF FILES PER 
$1 OUTPUT UNIT MAY BE CONFUSED WITH THE <MFID> OF A FILE IF 
$1 THAT <MFID> 1S A NUMBERS TeEe THE <MFID> OF THE FIRST FILE 
$1 FOLLOWING THE WORD *COPY" MAY NOT BE A NUMBERe 


$3( PRI 4211 ) 
S#PATCH NUMBER {22 FOR TSSMCP CONTAINS 1 CARDS, 
CNT8 Sl¢=xSl+q3 @32S13 IF SC" * THEN GO TO CNTSTALLY# 203 08291125 
$! BY KFK 
$3 DATE 2/28/75 
$1 MSA CENTRAL @ DETROIT 
$3 THIS PATCH WILL ALLOW FOR BETTER SCANNING OF THE PB KEYIN. 
$: IT IS NOW OK TO HAVE SPACES AFTER A "#" OR "a", 
Saw ea RK KK REN KKK EE EEK aK K KEE KEENE EK KER 


S#PATCH NUMBER 423 FOR TSSMCP CONTAINS 27 CaRNS, 


$1 


BY KFK 


STREAMCASSTOHL De Bt =TOHLOe C4oth6 mysCteTOHlL pel 4026140. 20571700 
Dt=2x(CMmM£L273))3 20571702 
BEGIN 20571710 
St:=Loc As’ SkIe Sa} 20571720 
IF SB THEN 20571730 
BEGIN 20571740 
SKIP 39 SB3 20571750 

IF SA THEN nSis8 LIT"OFAST " 20571760 
ELSE 20571770 
BEGIN 20571780 

SKIP SB} 20571782 

IF Sma THEN nSs28 LIT"OSLOW - 20571790 

ELSE 20571800 

BEGIN 20571810 
CcSztalOc B83 20571820 

OSt=6 LIT"OEU # "3 DStsz2 NEC; 20571830 

JUMP QUT TO LS 20571840 

Ostez8 LITVODISK "3 20571842 

Lé END 20571850 
END 20571860 

END 20571870 
ELSE 20571880 
BEGIN 20571890 
SKIP 5 SB3 20571900 
OSt=eLITvO"3s OSea7 CHR 20571940 
ENDS 20571920 
END: 20571930 


$! DATE 3/18/75 

$1 MSA CENTRAL » DETROIT 

$3 THIS PATCH WILL PLACE THE OUTPUT UNIT NAME OF A LIBRARY COPY 
$t IN WORD 27 OF THE SHEET SO THAT WHEN A TS IS DONE THIS NAME WILL 
$: BE LISTED ON THE OUTPUT MESSAGEs 


SS het i eR EERE aE ee TERE EERE EEE KDA Kee hee 


S#PATCH NUMBER 1424 FOR TS§mMCP CONTAINS 2 CARDS. 
IF KINDS7 THEN FPBCFNUM+3)©C*P COUP) 872015915198) 38228510 
ROC683919)3 38228520 
$: BY KFK 
$! 5/7/75 


$1 MSA CENTRAL = DETROIT 
$1 WHEN USING A MULTT#FILE Pat THE SECOND AND FOLLOWING FILES WILL 
$: SOMETIMES BE PRINTED SEVERAL TIMES. THIS WAS CAUSED BY A CONFLICT 
$: IN THE USE OF A FIELD IN THE FPB OF A PROGRAMe THE SAME FIELD 
$: THAT IS USED TN HOLD THE NUMBER OF COPIES (FROM A FILE EQUATE) 
$: 1S ALSQ USED TO HOLD THE PRN OF THE TAPE, 
GU eK ENR EEK Ra KEEN ee EEK eke Ree Khe 
$#PATCH NUMBER 126 FOR TSSMCP CONTAINS 1 CARD, 
PROCVAL#=03 20602860 
$1 BY KFK 
$! OATE 04/05/75 
$3 MSA CENTRAL » DETROIT 
$3 THIS PATCH CORRECTS An ERROR IN CONTROLCARD THAT COULD CAUSE 
$: UNEXPLAINED CONTROL CARD ERRORS AND SYSTEM HaLTS. THE ERROR 
$: WAS CAUSED BY CONTRO CARD NOT RESETTING THE STACK VARIABLE 
$3 "PROCVAL" BACK To ZERO AFTER A TYPED PROCENURE WAS CALLEDe THUS 
$: THE NEyT TYPED PROCENURE CALLED WOULD START WITH A NON ZERO VALUEe 
SUR ha REET RRA KEE KA Ree ETHER EER KER HERAT ee 


S#PATCH NUMBER 427 FOR TSSMcCP CONTAINS 3 CARDS, 


IF (TtaSCan) = ENOFI THEN 20608740 
GO TO pACKa2; 20608760 
$ VOIOT 20608800 


$t BY KFK 

$$ DATE 94/08/75 

$1 MSA CENTRAL = DETROIT 

$t THIS PATCH WILL CORRECT THE WAY CONTROL CARD HANDLES PACKET 
$3} ERRORSe WITHOUT THIS PATCH THE PACKET WILL ONLY BE FLUSHED 

$1 Tq THE NEXT END oR WAIT CARN NOT To JUST THE END CARDs 


(SRR ECESRESOSASSC RL OP RSET SS SCC POST CCE PCCP PCC LES O SEP REESE RETR R RES SERRE ERR RR SRE ES SE OB 


$#PATCH NUMBER 128 FOR TSSmCP CONTAINS 3 CARDS. 
IF OU GE@ O THEN % wE HAVE AN OUTPUT UNIT 28304590 
IF IU GEQ O THEN % WE HAVE AN INPUT UNIT 28304700 
IF QU GEQ 0 THEN & WE HAVE AN OUTPUT UNIT 28306500 
$$ BY KFK 


$! DATE 04/10/75 

$t MSA CENTRAL = DETROIT 

$t THIS PATCH WILL CORRECT aN ERROR IN THE NEW LIBMAIN/DISK PROGRAMs 
$1 IF THERE WAS A "NULL LIBRARY TRANSFER” THEN IF THE INPUT OR OUTPUT 
$1 UNIT IS DISK», WORD ONE Of MpMORY WOULD Se OVERWRITTEN BY A ZERO AS 
$: THE MCP TRIED TO CLOSE THE UNI Te ONE OF THE MANY PROBLEMS CAUSED 

$: BY THIS SITUTATION WAS THAT NO USER CODES WOULD BE ACCEPTED BY 


$3 CONTROLCARD BECAYSE JHE GPs USERCQODECSTORED IN WORD ONE) IS ZEROe 


$3 NO ERROR MESSAGE WAS GIVEN TO INDICATE THIS CONDITION AND THE SYSTEM 
$! CONTINUED TO RUN BUT ALL USFRCODES WOULD BE ZERO, 


So tee a a EER a EAR EKER EN EK REKE HE 


$#PATCH NUMBER 129 FOR TSSucP CONTAINS 6 CARDS. 


SHEATC24]33MCP3 07262100 
SHEATr24)23MCP3 08276365 
HEADERC2ZI]3sHEADERES)%=MCP}3 20289113 
SIs=cARD3 O0S:29 wOS; 20289240 

MC RUF +87)28=eMCP3 20289252 
SHEATC 2413 =2MCP;3 22069212 


$1 BY KFK 

$! DATE 94/12/75 

$3: MSA CENTRAL # DETROIT 

$1 THIS PATCH WILL CAUSE PRyPBT/DISK AND AUTO™LOCNTRL 

$: TO BE EXECUTED WITH THE MCPS USERCODEe THIS INFORMATION 
$: IS PLACED INTO THE LOG FILE. ALSO WITH THIS PaTCH 

$1 PACKET PAGES WILL BE GIVEN rHE MCP"S USER CODE NOT 

$1 THE USER CODE "PACKET", 


BN ae ee I Re TT TT TOF te Ti i TTT ta OW ae dee de ia HOt ie tie ae eae Ste i ke tie TORR ek tk tk 


S$#PATCH NUMBER 131 FOR TSSmcP CONTAINS 2 CARDS, 

USERS! IFC(TIsSCAN)ZEQUA, THEN GO INCSC3 20605700 
IFCTS=SCAN)*PERIO THEN GO INCSC3 20605702 

$t BY KFK 


$! DATE 04/10/75 

$: MSA CENTRAL = DETROIT 

$t THIS PATCH WILL GIVE A CONTROL CARD ERROR IF 

$1 EATHER THE EQUAL SIGn OR USER CODE IS MISSING ON A 
$: USER CONTROL CARD. 


Fete tee TI IO IOI III III II TOI TO I III IDIGIGIIOIIIIOOIGIUII IOI tt 


$#PATCH NUMBER 132 FOR TSSMCP CONTAINS 1 CARD. 
IF FASZ GTR O THEN LIBRARYHELPC(5) ELSE [Ura0UseC(FPBPTR:20)"13 28246200 
$1 BY KFK 


$t DATE 04/10/75 
$t MSA CENTRAL = DETROIT 
$s THIS PATCH WILL CORRECT a CONDITION IN LIBMAIN/OISK THAT 
$: WOULD CAUSE «A LIBRARY TAPE 7Q BE CREATED WITH NO LIBRARY 
$1 FILES ON IT, THIS TaPE RESULTED ON A NULL LIBRARY TRANSFER. 
$; ALSO CORE SPACE FOR THE BUFFERS IS NOT OBTAINED UNLESS THERE ARE 
$: SOME FILES To BE COPIED. 
Soe i TOO IOI IOUS II; HG io ili toi itt tk ai kak 
$#PATCH NUMBER 133 FOR TSSmcP CONTAINS 14 CARD, 
DSrsBLIT™$xOx4Q00"; OSt=BLIT"OPACKET"3 07418700 

$1 BY KFK 
$3 DATE 04/12/75 
$1 MSA CENTRAL # DETROIT 
$! WITH SOME SYSTEMS THE FIRST I/0 DONE TO A PRINTER FOR 
$1 THE PACKET PAGE WILL CAUSE THE PRINTER TO HANG UP FOR 
$t EXTENDED PERIOD OF TIMEe THIS WAS CAUSEQ BY QOING AN 
$t INVALID PRINTER OPERATIONe THAT IS NO PRINTING AND NO 
$t PAPER MOVEMENT. 
$3 THIS I/70 RESULTED WHEN THE MCP CHANGED THE I/0 
$: DESCRIPTOR FOR THE ABORTED LINE SO THAT THIS LINE WOULD 
$t NOT BE PRINTED. 
$1 NOW A SINGLE SPACE IS GENERATED. 
$3 THE mcP WOULD RECOVER FRaM THIS CONDITION 
$: AFTER ABOUT 20 SECONDS, 
Bae i SO IIS I OI IOISIG IOI IOIISIG BIGGIE IIDOINICIIIGIIDIGI i tt if tote 
S#PATCH NUMBER 134 FOR TSSmCP CONTAINS 14 CARD, 

ELSE IF Usia HEN PCHIRECTORYSEARCHCeMFIDsFI0+13)2D0EL)3 28446300 
$! BY SR. 
$t DATE 04/03/78 


$t THIS PATCH CAUSES HEADER SPACE FOR DUPLICATE DISK FILES TO BE 
$3: FORGOTTEN, PREVIOUSLY, IF THE LIBRARY MAINTENANCE TASK INVOLVED 
$t MANY DUPLICATIONS» THE HEANER SPACE OF EACH OUPLICATE FILE WAS 
$1 LEFT IN CORE EVENTUALLY RESULTING IN A "*NO#MEM" CONDITION ON 
$$ MIX ZERO, 
SEHR EKER aE ee EERE EREKENE EE Ree eae ee e 
$#PATCH NUMBER 135 FOR TSSMCP CONTAINS 1 CARD, 
MOVE(100B,T1+2)3 41323150 
$2 By KFK 
$! DATE 04/22/75 
$3 THIS PATCH CORRECTS A CONDITION THAT WOULD CAUSE AN INVALIO 
$s: ADDRESS ON A HALT LOAD IF MEMORY MOD ONE IS OFF LINE. 
ER SESE SERSCRASETESECR RSP SSERPESETOC REL E REE E SESE SEP RRR PERE RSE CEP EEE Ee Se 
S#PATCH NUMBER 136 FOR TSSmMCP CONTAINS 25 CARDS, 
LABEL PEs TEsPas 18701010 
SWITCH StePAsPEsTEeITsUSsDeTOsPRelOTsTMRs ADs WDS 18701100 
cit IF Cr4t=7a) GEQ@ (#5) aND 74 LEQ 6 THEN 18710100 
BEGIN GO 170 SC14+4+5]3 18710200 
Pai 18710240 
$ SET OMIT = NOTCPACKETS) 18710242 
IF CYTt=PSEUDQMIXFPIMIX]) GEQ 32 THEN 18710244 
Tat=PaCKETACT(I#32I3 18710246 
$ POP OMIT 18710248 
GO To INITIATES 18710249 
PEt 18710250 
$ SET OMIT = NOTCPACKETS) 18710252 
IF CYSBPSEUDMMIXLPLimIX]) GE@ 32 THEN 18710254 
BEGIN 18710256 
T4tePaCkKEVERR(1*32)3 18710258 
PACKETERR¢I*39)82£TRUES 18710260 
END} 18710262 
$ POP OMIT 18710264 
GO TO INITIATES 18710266 
TE! 18710268 
$ SET OMIT = NOTCPACKETS) 18710270 
IF CIT#=PSEUDQMIXEPIMIX]) GEQ 32 THEN 18710272 
T4tsPACKETERREI*32)3 18710274 
$ POP OMIT 18710276 
GQ TO INITIATES 18710278 
$1 BY KFK 
$i DATE 04/22/75 
$3 MSA CENTRAL # DETROIT 
$3 THIS PATCH ADDS THREE NEW TIME FUNCTIONS? 


1) TIMEC#3), WILL RETURN THE CURRENT STATUS OF THE PACKETERR BIT 
2) TIMEC#4)5 THIS PUNCTION WILL SET THE PACKETERR BIT 
3) TIMEC"5), WILL RETURN THE CURRENT VALUE OF PACKETACT. 

THESE THREE FUNCTIONS WERE ADDED TO GIVE A PROGRAM SOME CONTROL 
OVER THE PACKET. NOw A PROGRAM CAN *KILL® A PACKET BY A TIME 
FUNCTION RATHER THAN BY OS#ING ITSELF WITH A RUN TIME ERRORC(OILV 
BY ZERO» ETC)e ALSO A PROGRAM CAN "SEE" IF a SISTER PROGRAM 
HAS RUN INTO TROUBLE. ANO a PROGRAM CAN TELL HOW MANY JOBS ARE 
RUNNING FROM THE PACKET AT THIS TIME. 

TIMEC"4) WILL. RETURN THE VALUE OF PACKETERR BEFORE IT SETS IT. 


EXAMPLES! CALGOL) 
IF A LSS © THEN % we HAVE A PROBLEM 


$3 BEGIN % LETS KILL THIS RUN 

$3 Bir=TIMFCe#4ay3 % KILL PACKET 

$1 GO TO FXIT3 % EXIT PROGRAM 

$3 END? + 4 

$1 

$1 AND IN A PROGRAM RUN FROM THE SAME PACKET AT THE SAME TIME 

$1 

$3 IF BOOLEANCTIMEC*3)) THEN GO TO EXITS &% ERROR IN OTHER PROGRAM, 


$t 

$: IF THE FIRST PROGRAM FINDS A PROBLEM AND WANTS TQ STOP THIS RUN IT 
$t SETS THE PACKETERR BYT THEN THE SECOND PROGRAM WILL "SEE" THIS 

$: AND ALSO GO 710 EQJ,. 


Stkeakbati eke oag kOe da i iia tig Wg toto tick ici On kat Rt tk hth 


$#PATCH NUMBER 138 FOR TSSMCP CONTAINS 3 CARDS, 
IF ZIPMIX NEQ@ 9 THEN 20608112 
IF €T8=PSEYDOMTXCZIPMYX]) GEG 32 THEN 20608114 
PACKETERR(T#32):= TRUE 20608116 
$t BY KFK 


$t DATE 04/23/75 

$3 MSA CENTRAL = DETROIT 

$: THIS PATCH WILL SFT THE PACKETERR BIT IF THERE 
$: IS A ZIP ERROR IN THE PACKET. 


GE ede ee te eet tte i RO II IOI tI IG IIR I OG III TOG I OI iii ii tiet 


S$#PATCH NUMBER 140 FOR TSSmCP CONTAINS 22 CARDS, 
REGIN TeCa INX ®5 40000000000000 a47¢8236%40)3 02287240 
IF SEPARATE THEN TeT&CLUNS22)£3224781) 02287245 
ELSr TeTO¢LUN422)(2884721)3 02287250 
$ VOIOT 12727504 12726500 
$ VorpT 12739504 12728500 
IF KIND®1 THEN MCALPHA*2 )¢PCDUPPLOD) & 38280500 
(ir SEPARATE THEN 1 ELSE @29)(273:4236) 38280600 
ELSE 38280700 
IF NOT SEPARATE THEN 38281600 
IF ¢TYPE<20) THEN 38281700 
HEADERC73J*PCOUPSLODI8(@20)(2734226)3 38281800 
MCALPHAJ@¢¢ *PC OUP) &COKO000I (CTF I3 38590000 
IF TYPE<20 THEN 38590100 
MCALPHAIJ*CePCONPIIAQCIF SEPARATE THEN 1 ELSE @29)(27342:6);3 38590200 
IF NOT SEPARATE THEN MEALPHAI)+CHPCDUP) g1f27842%6)3 38592100 
END$ 38594000 
Ip NOT SEPARATE THEN MCALPHAJ*PC(OUPsL OD) &1027242:6)3 385941400 
MCALPHAI,(20!4]¢13 38594200 
IF FIBC4zeC FF ISFTBLi4ief CF) THEN 38594300 
IF SEPARATE THEN PCWAITI9(C@4000100000,0sU )*DE,) 38741000 
ELSE PCWAITINC#4002000000209U)*#DEL)3 38741100 
IF NOT SEPARATE THEN PCWAITIO(C@4000100000, 05U ys» DEL 93 38742100 

$1 BY KFK 


$$ DATE 5/7/75 

$3 MSA CENTRAL © DETROIT 

$1 THIS PATCH CHANGES THE Use OF THE SPQ OPTION "SEPARATE"+ IT NOW 

$: Is USED TO CONTROL THE PRINTER SPACEING AROUND THE LABLE PAGE« 

$: THAT IS IF SEPARATE 7S RESET THEN ONLY A DOUBLE SPACE IS DONE 

$t AFTER THE BEGINING LaBEL AND BEFORE THE ENDING LABEL» IF IT IS 

$1 SET THE OPERATION OF THE PRINTER IS AS IT WAS BEFOREC A FULL. 

$3 PAGE FOR THE LABEL RECORN)« 

$3 THIS WAS NONE TO HELP WITH THE ENERGY CRUNCH AND PER CUBE REQUEST. 

S#PATCH NUMBER 141 FOR TSSMCP CONTAINS 452 CARDS. 00000000 


IF §s¢ ¢ """ THEN IF SC # LEFTARROW THEN 


BEGIN SI $= SI + 13 gQ To LS; END3 
IF SC « LEFTARROW THEN GO TO EXIT; 


$ VOYNT 08135004 
BLBALALERRLLSLLAAAAX ALLY SEL AX ELALELSELL LYALL A LALY SARK RAL YELL LULAXALKYXZFXOB09S080 
FE IOI II TEI III IOS IIIIOIUISG IOI IDI II iti it tek tote %08095100 


Ye 
Zw 
Y* 
gx 
» a 
Z* 
%* 
» 
ge 
X* 
Ra 
t* 
x 
Xe 
%* 
gw 
%« 
X%w 
X%* 
Xe 
| 
+ oi 


at 


XY 
Xx 
Xe 
ke 
%« 
%* 
Xw 
Ye 
%* 
Zw 
X%* 
X« 
+ 23 


&* 


ye 
be 
a* 
%* 
X* 
Ys 
%* 
y* 
x* 
g* 
Xv 
X« 
X* 


PRINTOITIRE 


Aa 


ToRY 


PURPOSE? THIs PROCEDURE HANDLES THE PD» £X» LF» LC AND LS 


MESSAGES. ALL MESSAGES ARE FORMS OF THE Pp MESSAGE 
ExycEPT FOR cERTAIN OIFFERENCES, THE PD MESSAGE WILL 
LIST THE NAMES OF THE DESIRED FILES AS WELL AS 
CERTAIN PIECES mF INFORMATION IF REQUESTED, 


SYNTAX$ THE FORMAT OF ALL THE KEYIN MESSAGES WITH THE 


EXCEPTION Or THE Le MESSAGE IS AS FOLLOWS: 
<MESSAGE> <FILE SPrcIFIER> <OPTION@LIST> 
<MESSAGE> 8¢5 Pn / EX / LO / LS 


<FILE SPECYIFIER> t= <FILENAME> / <FILENAMED>D "/* 
<FILENaAME> 


<OPTION@LIS7> $3 «EMPTY> / <OPTION> / <OPTION> » 
<OPTION*LIST> 


<OPTION> tte RECS ~ LAST / DATE / SAVE ¢ SIZE / 
CREATOR / SECURITY 7 ALL 


<FILENAME> st ¢FROM 1 TO 7 CHARACTERS OPTIONALLY 
ENCLOSFN IN QyOTES) 7 = 


THE SYNTAX FOR THE LF MESSAGE IS8 


LF <USERID> <OPTION#LIST> 


SEMANTICS? THE EXs LF, LC» AND LS MESSAGES ARE JUST 


MODIFIED FORMS OF THE PD MESSAGE. THE EX MESSAGE IS 
THE SAME AS A PO EXCEPT THAT ONLY THE EXPIRED FILES 
ARE LISTED. THE LF IS THE SAME AS A PDs/= EXCEPT 
THAT ONLY THE FILES BELONGING TO THE SPECIFIED USER 
ARE LISTED. THE |«C MESSAGE 1S THE SAME AS A "PD 
<FILE SPECIFIER> CREATOR". THE LS MESSAGE IS THE 
SAME AS “PD <FILE SpPECIFIER> SECURITY*CREATQOR",. 


THe OPTIONS SPECIFY WHAT ADDITIONAL INFORMATION 
Is TO BE LISTED BFSIDES THE DEFAULT INFORMATIONes IF 
AN UNRECOGNIZABLE wORD IS ENCOUNTERED IN THE OPTION 
LIST» IT IS IGNOREn. THE AVAILABLE OPTIONS ARE! 


RECS = NUMBER OF RECORDS IN THE FILEe CSPECIAL LOGIC 
IS INCQRPORATFO TO THE LIST THE CORRECT NUMBER 
FOR BACKUP FILES). 


02615100 
02615200 
02615300 
08095000 


*#%08095150 
*%308095200 
*%08095250 
*%¥08095300 
*%08095350 
*%408095400 
*%08095450 
*%08095500 
*¥%08095550 
*%08095600 
*%08095650 
*%08095700 
*%08095750 
*%¥08095800 
*%08095850 
*%08095900 
*%08095950 
*¥08096000 
*¥%08096050 
*#%08096100 
*¥%08096150 
*%08096200 
*%08096250 
*%08096300 
*¥08096350 
*%08096400 
¥%08096450 
*%08096500 
*%08096550 
*%08096600 
*%08996650 
*%08096700 
#%08096750 
*%308096800 
*%308096850 
*%08096900 
*%08096950 
*%08097000 
*x¥08097050 
*%08097100 
*%08097150 
*%¥08097200 
*%08097250 
*%408097300 
*%08097350 
*%08097400 
*%08097450 
*%08097500 
*%08097550 
*%¥08097600 
*%08097650 


X+ 
X* 
La 
X* 
%* 
% 
Xe 
2 
y* 
X* 
%* 
Ze 
Xn 
Yr 
X* 
%« 


LAST = LAST ACCESS DATE. 


DATE = CREATION BATE. 


SAVE = SAVE FACTOR; 


SlZe = size OF THE FILE IN SEGMENTS, 


CREATOR 


SECURITY = ACCESS PRIVILEGES OF THE FILE» IeEes 


IS ALSn LISTEN). 


LOCKED, UNLOCKED» PUBLICs PRIVATEs FREE. 


= PRIVILEGED USERCODE ASSOCAITED WITH FILE. 
(FoR RaCkKuP FILES THE LABEL OF THE PRINT FILE 
AND THE NAME oF THE PROGRAM CREATING THE BACKUP 


*%08097700 
*%08097750 
#%08097800 
*%08097850 
*%08097900 
*%08097950 
*%08098000 
*%08098050 
*%08098100 
*%¥08098150 
*%08098200 
¥%08098250 
*#%08098300 
*%08098350 
*%08098400 
*¥08098480 


Rete eee eeaeteea tbe kkekkagthe eh kkikeiikey kik yg thy hike tik ike ete eee E09098500 
VARTA VAUL LLL ALL LYRTULLLVYLALYVALYLRULLLLELLALTLELLY RELALAVLARVLALAVAVXYXXXXXOB09B550 
PROCEDURE PRINTHIRECTORYCBUFF)3 


BE 


VALUE BUFFS 
REAL BUFFS 
GIN 


INTEGER 


INFO» 
LABELREC, 


USERID, &% 
X3 % 


ARRAY 


HDRe*), % 
XLSTLWIS% 


BOOLEAN 


Be Fe VE BL TE DL 2A 


oO 
» 
Be Fe Ve FA Ze 2S ge de 


NORMALLY CONTAINS OPTION NUMBER, 


MFIO OF DESIRED FILE OR 1 IF “ate 
FID OF DESIREn FrLE OR #1 IF "a", 

ADDRESS OF DISK HEADER. 

MFID OF LaST FILE FOUND 8Y SEEKNAMe 

FYD OF LAST FILE FOUND BY SEEKNAM, 

WORK VARIABLE USFD BY SEEKNAM TO SAVE INFO. 
NORMALLY USED TO SAVE DESTe INDEX, 

BIT MASK FOR OPTIONS SELECTED, 

% ADDRESS OF LABrL RECORD FOR PRD ¢ IF LC ). 
USERID IF LF. 

JUNK, 


DESCRIPTOR TO DISk HEADER, 
SOME DAY WE MAY ALLOW EXCEPTION LIST, 


PBDTOG» % TRUE IF SELECTED FILE IS A PBDe 
FOUNDAFILES % TRUe IF WE LISTED OUT aT LEaST ONE FILES 


LABEL EXrTsDROPOUTsDUMMY»OPTyONSS 
DEFINE NUMOPTS = 7#}3 
DEFINE PO = (CODE = O)#s 

EX = (CODE = 1)#,» 


08098600 
08098650 
08098700 
08098750 
08098800 
08098850 
08098900 
080989560 
08999000 
08999050 
08099100 
08099450 
08099200 
08099250 
08099300 
08099350 
08099400 
08099450 
08099500 
08099550 
08099600 
08099650 
08099700 
08099750 
08099800 
08999880 
08999900 
08099950 
08100000 
08100050 
08100100 
08100150 
08100200 
08100250 
08100300 
08100380 
08100500 
08100550 
08100600 


Lc = (CODE = 2)#» 

LF = (cODE = 35%, 

LS = (CODE = 4y#3 

DEFINE 

PRIMARYUSER = HORL2) ¢¢ % PRIv,. USER CODE, 
SAVEFACTOR = HORO31.C2:10]%* % SAVE FACTOR, 
LASTACCESSDATE = HDRE31.C12918]4» % LAST ACCESS DATE, 
CREATIONDATE = HDRE3}.039t18]#» %& CREATION DATE. 
GUAROFILEMFYD = HORI5) #,s % MFID OF GUARD FILE. 
GUARDFILEFIN = HORE6)¢> % FIO OF GUARD FILE. 
EOFPOINTER z HORE 71% % EOF POINTER, 
SEGSPERROW = HDRCB8) #e % SEG. PER ROWe 
NOOFROWS = HORE91,043:5)#» % NO. OF ROWS DECLARED, 
HEADERADDRESS a HDORelCCFIF; % CORE ADDRESS OF HEADER, 


08100650 
08100700 
08100750 
08100800 
08100850 
08100900 
08100950 
08101000 
08101050 
08101100 
08101150 
08101200 
08101250 
08101300 


Lttkakeetteketeetieee 6 YU BROUTINE § weed kktetaekee kee eee teen B101350 


SUBROUTINE GETREADY3 
x Semen Rt awe Rae Pee = 
BEGIN 
CODE s:= BUFF.C9t673 
BUFF t= CT&*eBuFF),Ci5215) * 13 
INFO t= 0 @ (LC Om LF OR LS)C4284791) &@ LSC4384784)3 
END OF GETREADY3 


SUBROUTINE GETFILESPECIFIERS 
Y Se wema sees CA eT F Oe TO PO ee 
BEGIN 
NAMETOCMFIDsT)3 & GET MFrD COR USERCODE IF "LF™) 
IF LF THEN USERID t= MFIn3 & FIRST THING IS USERID FOR LF 


IF MFID = “ee “OR Lr THEN 
MFID &$= @ 43 
NAMEIDCF Ips T)3 
If FID = */ “ THEN & GET FID 
BEGIN 
NAMEIOCF IDNs T)3 
NAMETOCNe TIS & GET NEXT ITEM, 
END 
ELSE % NO FIB SPECIFIED IMPLIES FIO OF "a" 
BEGIN 
N ta FID3 
FID t= "13 
END3 
IF FI0e(6:6) = LEFTARROW OR LF THEN & NO FID SPECIFIED 
FID tz = 43 
END OF GETFILESPECIFIERS 
% 
SUBROUTINE PROCESSOPTIONLISTS3 
b 4 a ear Ow ee ey FO om SO es OS OR gy 
BEGIN 
WHILE N # Me "00 % ACCUMULATE OPTIONS 
BEGIN 


FOR I te #1 STEP 9 UNTIL CNUMOPTS = 2) DO 


NUMMYS: IF PCeOPTIONSsIs+e_00) = N THEN % MATCHES AN OPTION WORD 


BEGIN 


08101400 
08101450 
08101500 
08101550 
08101600 
08101650 
08101700 
08101750 
08101800 
08101850 
08101900 
08101950 
08102000 
08102050 
08102100 
08102150 
08102200 
08102250 
08102300 
08102350 
08102400 
081024580 
08102500 
08102550 
08102600 
08102650 
08102700 
08102750 
08102800 
08102850 
08102900 
08102950 
08103000 
08103050 
08103100 
08103150 
08103200 
08193250 


INFO #© INFO OR TWOCI4+123 % SET BIT CORRESPONDING TO OPTO8103300 


GO TO OROPOUTI 
END 
ELSE % CHECK FOR "ALL" 


08103350 
08103400 
08103450 


IF N = "ALL " THEN % SET ALL OPTION WORD BITS. 08103500 

INFO t& NOT O3 08103550 

DROPOUT: 08103600 
NAMETINCNs7)3 & GET Next OPTION WORD, 08103650 

IF N aw "> " THEN NAMETOCNeT)3 &% SKIP OVER COMMA, 08103700 

ENND3 08103750 

GO TO EXIT3 08103800 

4 081038680 
OPTIONS 3:8! "RECS ", £ OPTYON O CINFO,Ca7#13) 08103900 
"LAST *, % ORTYON 1 CINFO,C4621)) 08103950 

"HATE ", S MPTrON 2 CINFO,£4534)? 08104000 

"SIZE t, % OPTYON 3 CINFO.f448149) 08104050 

"SECURIT", % OPTION 4 CINFO.64321)) 08104100 

"CREATOR™, % OPTYON 5 CINFO,£42%1)) 08104150 

"SAVE ; € OPTYON 6 CINFO,(L4121)) 08104200 

EXT 08104950 
END OF PROCESSOPYIONLIST# 08104300 

x 08104350 
SUBROUTINE GETSET; 08104400 

{J Savane n aes emew ee 08104450 
REGIN 08104500 

IF EX OR YNFO x O THEN & WE WILL NEED THE HOR, 08104550 

HDR 8% TOQUE & SPACEC30) [CTC] 08104600 

END OF GETSETS 08104650 

x 08104700 
BOOLEAN SUBROUTINE WEGOTAFILF3 08104750 
Fe ee me ee ae ge Oe ee ge oe ae Fe 08104800 
BEGIN 08104850 
SEEKNAMCMFIDsFIDscaeDeEa Ns xhSTI3 & FIND A FILE, 08104900 
WEGOTAFILE t= C ¥ O$ ¥ C IS ADORESS OF DISK HEADER, 08104950 

END OF WEGOTAFILE3 08105000 

% 08105050 
BOOLEAN SUBROUTINE WEWANTTHISFILES 08105100 

Yo Tween See Ree SR RT MOR 08105150 
BEGIN . 08105200 
PROTOG t= (C(O EQy “PBn ") = NOT O OR Cp EQy “PyD ") 08195250 

= NOT 093 08105300 

IF HEADERADDRESS ¢ 0 THEN & WE NEED THE HEADER. 08105350 
NISKWAITC#HEADERADDRESSs302C)3 & READ HEADER, 08105400 

IF LF THEN % CHECK To SEr IF WE WANT THIS FILEe 08105450 
WEWANTTHISFILE ¢= PRIMARYUSER = USERID 08108500 

ELSE 08105550 

IF EX THEN 08105600 

BEGIN 08105650 
STREAMCASsSCALCULATFPURGEC @SAVEF ACTOR) ,X33fX})3 08105700 

BEGIN 08105750 

ST := Loc A3 DS ts 8 OCT3 08105800 

END3 04105850 
WEWANTTHISFILE := Xx > LASTACCESSDATES % TRUE IF FILE EXPIRED08105900 

END 08105950 

ELSE 08106000 
WEWANTTHISFILE ts TRUES 08106050 

END OF WEWANTTHISFILE3 08106100 

% 08106150 
SUBROUTINE PUTINFILENAMES 08106200 

Yo Beaman tse BeNOR SOME” Me 08106250 
BEGIN 08106300 


STREAMCA#sO $ Ds fe BUFFS ® SET UP FILE NAME, 
BEGIN 
SI te LOc D3 
os {a LIT " Ws 
2¢ St t= S14 43 DS t= 7 CHR$ DS t= LIT "/")3 
NI :3 DI = 43 
DS t= 2 LIT * "3 % wEED 2 SPACES TO ALLOW FOR ARROW, 


END; 
T 3= P3 %& SAVE OFF DEST. INDEX. 
END OF PUTINFILENAME3 
% 
SUBROUTINE DORECS3 
LY Bawa aE Oe 
BEGIN 
STREAMCAt@IF PBOTOG THEN EQFPOINTERXS ELSE EQFPOINTER*1 #8793 


BEGIN 
NS t= 9 LIT "RECORDS: "3 
SI ts LOC A3 
0S t= @ DEC3 x CONVERT NUMBER OF RECORDS TO DEC. 
A t= ol3 x SAVE OFF nI BEFORE ZERO SUPPRESSINGs 
Nl t2 DY = 83 
pS $= 7 FILLS 
END; 
T t= P3} & SAVE DESTINATIoN ADORESS, 
ENO OF DORECS3 
4 
SUBROUTINE PODATEORLASTS 
b 4 © pm me na oe EE we DOE a gn OF OF OF om AO On OO, 
BEGIN 
STREAM(xtslXx))3 
BEGIN 
SI te X3 
OS t= 8 DEC x CONVERT DATE TO DECIMAL» 
END3 
GIMEDATECCXI].°CFI,"X)3 % CONVERT JULIAN DATE TO 6 DIGITS. 
STREAMCAtEC(I=1) % Xs TY 
BEGIN 
A ¢( DS te 10 LIT *ACeESSED? 3 JUMP OUT TO L193 
OS te 9 LIT “CREATED: "3 
Lit 
SI t= LOC x3 
Sr ss Sy + 23 
3 ¢ OS $# 2 CHR NS te LIT "/")3 
Ol t= DI = 43 % ERASE THE EXTRA SLASH, 
A t® oI} & SAVE DEST. INDEXe 
ENDS 
T t= P3# %& SAVE DESTINATION ADDRESS, 
END OF OOQDATEORLASTS3 


SUBROUTINE OgSIZE;3 
» 4 Seen en Fann O88 se Faw 
BEGIN 
NT2 #2 NOMOFROWSS x NO, OF ROWS DECLARED, 
NT1 #8 OF} % NUMBER OF ROWS PROCESSED, 
FOR J $2 ¢ STEP 1 UNTIL NT2 DO & CHECK TO SEE IF ROW EXISTS, 


08106350 
08106400 
08106450 
08106500 
08106550 
08106600 
08106650 
08106700 
08106750 
08106800 
08106850 
08106900 
08106950 
08107000 
08107050 
08107100 
08107150 
08107200 
08107250 
08107300 
08107350 
08107400 
08107450 
08107500 
08107550 
08107600 
08107630 
08107700 
08107750 
08107800 
08107850 
08107950 
08108000 
08108050 
08108100 
08108150 
08108200 
08108250 
08108300 
08108350 
08108400 
08108450 
08108500 
081085580 
08108600 
08108650 
08108700 
08108750 
08108600 
08108850 
08108900 
08108950 
08109000 
08109050 
08109100 
08109150 
08109200 


x 


x 


IF HORE J+9] # O THEN NTL #5 NTL + 13 % BUMP UP COUNT, 
STREAMCASaNTixSEGSPERRGW ¢ T)s 


B 


E 


EGIN 


DS t= 10 LIT "SEGMENTS! “3 
SI t= LOC AB 


OS ts 8B 
A ts pr3 
PY %= OF 
0S t= 7 
NN3 


DEC3 


- 83 
FILL3 


T t= Ps % SAVE DESTINATION ADDRESS, 


END O 


F DOSIZE3 


SUBROUTINE DOSECURITY; 


> 4 Fes an eZ Bae SHEP aawm 


BEGIN 


J t= IF PRIMARYUSER = O THEN OQ % FREE FILE 
ELSE IF GUARDFILEMFIN = MARK THEN % UNLOCK Om PuBLIc 


IF GUARDFILEFID = MARK THEN 1 % UNLOCKED 
ELSE 2 % PUBLIC 


ELSE IF GUARDFILEMFID < O THEN 3 % PRIVATE 


ELSE 43 % LOCKED 


STREAMCY ¢ AteGUARDFILEMFIDO» BteGUARDFILEFIDs T)3 


B 


Lock? 


EGIN 


NS #3 10 LIT “SECURITY? "5 


CI 32 Cl 
GO TO 
GO 70 
God 70 
GO TO 

DS t# 6 


+ J 
FREES 
UNL OK; 
PUBLIC3 
PRIVATES 
LIT *"LOCKEO"; GO TO EXIT; 


PRIVATESDS t= 22 (17 "PRIVATE (SECURED WITH "3 
SI ts Loc A} 


= SY + 143 OS t= 7 CHRS DS te LIT "/%)3 


NI t= Ol = 43 


T wy; 


LIT "puUBLIC™; GO TO EXIT; 
LIT "UNLOCKEn"s GO TO EXIT3 
LIT "FREES 


2¢ Sr 3 

NS ts LI 

60 TO EXITs 
PUBLIC: DS ta 6 
UNLOK: OS ts 8 
FREES DS t= 4 
EXIT? J t= ol3 

END 


T 8 


3 
= P} & SAVE DESTINaTION ADDRESS. 


END OF DOSECURITY3 


SUBROUTINE DOCREATOR 


% Pawan We Me 


BEGIN 


$SET OMIT = PACKETS 


IF Jts(PBDOTOG aND (CE,030848] = 1)) THEN % REEL 1 OF PBD 


$POP OMIT 
$SeT OMIT = NOTCPACKETS) 


IF Jta(PBDTOG AND (E,l4286) = 12) THEN & REEL 4 OF PBD 


$POP OMIT 


BEGIN 
TF LABELREC = 0 THEN LABELREC t= SPACEC30)3 
NISKWAITC@=LABELRECs 302,HDRE103+42);3 


08109250 
08109300 
08109350 
08109400 
08109450 
08109800 
08109550 
081909600 
08109650 
08109700 
08109750 
08109800 
08109850 
08109900 
08109950 
08110000 
08110050 
08110100 
08110150 
08110200 
08110250 
08110300 
08110350 
08119400 
08110450 
08110500 
08110550 
08110600 
08110650 
08110700 
08110750 
08110800 
08110880 
08110900 
08110950 
08111000 
08111050 
08111100 
08111150 
08111200 
08111250 
08111300 
08111350 


086111400 
08111450 
08411500 
08111550 
08111600 
08111650 
06111700 
08111750 
08111800 
08111650 
08111900 
08111950 
08112000 
08112050 


ENN3 
STREAMCJ ¢ Bte PRYMARYUSFREOe CISPRIMARYUSER, 
DtxLABELREC INY tos T)3 

BEGIN 
OS $= 9 LIT "CREATOR: "3 
BC OS te 4 LT "NONE '*S JUMP OUT TO La )3 
SI ts Loc C3 
St ta SY + 43 
9S t= 7 CHR3 


L2t 
J ¢ DS te 2uLrT " ("3 
SI t= D3 
2¢ St t= St + 13 OS $3 7 CHR DOS te LIT "/"%)3 
Dr ts Ol = 13 DS s= 4 LIT " OF "3 
2C¢ St 3= SI + 13 DS 2:2 7 CHR; DS t= LIT "/")3 
DY t= Of = 15 OS c= LIT ")" O35 
J a3 nt} 
END3 


T t= P3} & SAVE DESTINATION ADDRESS. 
END OF DOCREATOR; 


SUBROUTINE DOSAVEFACTHRS 


+ 4 Fn we ee nO ne es ee ey 


BEGIN 
STREAMCA #3 SAVEFACTOR & T)3 
BEGIN 
MS ts 6 LIT "SAVE: ‘3 
SI t= LOC A3 
OS $= 3 nec; 
A tz ni3 
DI te OF = 3 
nS ts 2 FILL3 
END; 
T t= P3 ¥% SAVE DESTINATION ADORESS, 
END OF DOSAVEFACTOR} 


SUBROUTINE DOOPTIONS3 


b 4 Fewsanteas ata sane 


BEGIN 


FOR t t# 9 STEP 1 YNTIL e¢NUMOPTS = 1) DO x SEE IF OPTION BIT SETe 
IF ¢TWOCT) AND NFO) # O THEN SOPTION SELECTED, 


BEGIN 
CASE I oF 
BEGIN 
MORECS3 % CASE 0 = "RECS®* 
BEGIN % CASE 1 7 "LAST" 
X &3 LASTACCESSDATE3 
DODATFORL AST? 
END OF cASE 13 
BEGIN % CASE 2 =* “DATE” 
X t= CREATIONDATES 
DODATEORLAST} 
ENO OF CASE 23 
DOSIZE3 % CASE 3." “SIZE” 
DOSECURTTY3 % CASE 4 * "SECURITY" 
DOCREATOR3} x CASE 5 * "CREATOR" 
DOSAVEFACTORS % CASE 6 = "SAVE" 


08112100 
08112150 
08112200 
06112250 
08112300 
08112350 
08112400 
08112450 
08112500 
08112550 
08112600 
08112650 
08112700 
08112750 
08112800 
08112850 
08112900 
08112950 
08113000 
08113050 
08113100 
08113150 
08113200 
08113250 
08113300 
08113350 
06113400 
08113450 
08113500 
08113550 
08113600 
08113650 
08113700 
08113750 
06113800 
06113850 
08113900 
06113950 
08114000 
08114050 
08114100 
08114150 
08114200 
08114210 
08114250 
08114290 
06114300 
06114310 
08114320 
08114340 
08114350 
08114360 
08114370 
08114400 
081144580 
08114500 
08114550 


ENO OF CASES} 08114600 

STREAMCY : T)3 % PUT COMMA AFTER LAST OPTYON, 08114650 

BEGIN 08114700 

DS *™ 2 LIT %» “3 08114750 

I t= p13 08114800 

END3 08114850 

T te p3 08114900 

ENO OF LOOP To PROCESS OPTIONS? 08114950 

END OF DOOPTIONS3 08115000 
06115050 

SUBROUTINE MAKETHEMESSAGES3 08115100 

, 4 PnP ERR BH FR BaP ay Bae 08115150 
BEGIN 08115200 

Ip FOUNDAPCFILE THEN % wE NEED A BUFFER, 08115250 

BUFF t= SPACE(30)3 086115300 
PUTINFILENAME 3 08115350 
DOOPTIONS3 08115400 
STREAMCT)$ &% PUT IN THE LEFT ARROW. 08115450 

BEGIN 08115500 

DI $3 DI 23 08115550 

NS t# LIT LEFTARROWS 08115600 

END3 08115650 

END OF MAKETHEMESSAGE3 08115700 

% 08115750 
SUBROUTINE COMPLAINS 06115800 

% S*eawantens Seat nnan 08115850 
BEGIN 08115900 
STREAMC BUFF )3 08115950 

OS ts @ LIT ™ NULL "3 % ORIGINAL INPUT Is AT BUFF + te 08116000 
SPOUT(CBUFF D3 08116050 

END OF COMPLAIN; 08116100 

x 08116150 
SUBROUTINE FORGETEVERYTHING3 06116200 

X Pesesetean ena enn ee 8g FOR eT 08116250 
BEGIN 08116300 

IF HEADERADDRESS ¢ 0 THEN FORGETSPACECHEADERADDRESS)3 08116350 

IF LABELREC # 0 THEN FORGETSPACECLABELREC 3 08116400 

END OF FORGETEVERYTHING 08116450 
Rktkekkewewekekkaweeee S TAR T oF CODE Renee eee edie deen eee B116500 
GETREADY3 08116580 
GETFILESPECIFIERS 08116600 
PROCESSOPTIQNLISTS 08116650 
GETSET3 08116700 
WHILE WEGOTAFILE pO 08116750 

IF WEWANTTHISFILE THEN 08116800 

BEGIN 08116850 
MAKETHEMESSAGE3 08116900 
SPOUT¢CBUFF)3 08116950 
FOUNDAFILE t= TRUFS 08117000 

END3 06117050 

IF NOT FOUNDAFILE THEN COMPLAINS; 08117100 
FORGETEVERYTHINGS 08117150 

END OF PRINTDIRECTORY3 08117200 
$! DATE 9/10/75 99990000 
$! BY JTC * MSA CENTRAL 99990100 
$1 THIS PATCH REWRITES THE PRINTOIRECTORY PROCEDURE, MUCH NEEDLESS 99990200 
$: CODE HAS BEEN ELIMINATED CTHE PROCEDURE 1S 39 WORDS SMALLER) AND 99990300 


$: SOME NEW OPTYONS ARE AVATLARBLEs THE SYNTAX FOR ALL MESSAGES 

$t HANDLEO BY THIS PROCFOURE (PDsEXsLFslCs» AND LS) HAS BEEN CHANGED 
$! SLIGHTLY IN THAT A SLASH IS NOW REQUIRED BETWEEN THE FIRST AND 
$1 LAST NAMES OF A FILE CA SPACE WOULD SUFFICE PREVIOUSLY) AND 

$! MULTIPLE OPTION WORDS MAY Be SPECIFIED AFTER ANY OF THE MESSAGES, 
$! IN ADDITION» FOUR NEW OPTION WORDS HAVE BEEN ADDED: "SAVE" 

$: LISTS OUT THE SAVE*FACTOR Of THE FILE» "CREATOR™ LISTS OUT THE 
$1 PRIVILEGED USERCODE aSSOcIATED WITH THE FILEs “SECURITY” 

$1 LISTS OUT THE ACCESS RIGHTS OF THE FILE» TeE» LOCKED», UNLOCKED,» 
$: PUBLICs PRIVATEs OR FREE, AND "ALL™ LISTS OUT ALL OF THE INFOR@= 
$: MATION AVAILABLE FROM EACH oF THE INDIVIDUAL OPTIONS, 


$! SOME EXAMPLES OF THE MESSAGES THAT ARE POSSIBLE FOLLOW. 


$! PD ~a/B RECS»DATE*SIZE 
$3 LF SYTE ALL 

$i LCPBD RECS 

$3 


$1 CONSULT THE HEADING BLOCK oF THE PRINTDIRECTORY PROCEDURE 
$1 FOR ADDITIONAL INFORMATION, 
$#PATCH NUMBER 142 FOR TSSMCP CONTAINS 1 CARD, 
REAL NEUS DEFINE USUT#sUASUTH#sNEULSNEUF UM eNEUQBNEUSNEUSS 
$2 DATE 10/1/75 
$t BY JTC = MSA CENTRAL 
$3 THIS PATCH CORRECTS a PROBLEM IN SHAREDI SK MCPS 
$3 WHICH COULD CAUSE INVALID LYNK ERRORS, THE GLOBAL 
$3 VARAIBLE AVS WAS BEING USED INCORRECTLY IN THE 
$t PROCEDURE USERDISKSPFCIALCASE 
S#PATCH NUMBER 143 FOR TSSMCP CONTAINS 5 CARDS, 
LABEL PEsTEsPAsLL3 
SWITCH S t® LeoPAsPEs TEs rT #USeDeTOsPRelIOTs TMRsADe WD 
Cit IF (Y4tela) 2 (#6) AND Ta $ & THEN 
BEGIN GO TO SE14+6]3 
LL? 14 t= LOGLINE,€40:833 GO TO INITIATES 
$3 DATE 9/25/75 
$! BY JTC - MSA CENTRAL, 
$t THIS PATCH IMPLEMENTS TIMEC #6) WHICH RETURNS THE 
$t LOGICAL LINE NUMBER FROM WHICH A PARTICULAR PROGRAM 
$: 15 RUNNING, BATCH PROGRAM WILL ALWAYS RETURN A ZERO, 
S#PATCH NUMBER 144 FOR TSSMCP CONTAINS 7 CARDS.« 
PROCEDURE FORMTIMECWeT)3 VALUE WeTd REAL Wetd FORWARD 
CS#24+(MCBUF INX Z]eCLIESI2">%) 76893811073 
FORMTIMECENTL J »XCLOCK+PCRTR) D3 
STREAM(N¢ #SmqaCh seSxa"YeAAtaBUF INX 29BB %* NTis 
BUF s=CBUFLRII)3 
BEGIN OS t= 7 LIT ™ "$3 SI sm LOC BBS DS t= g CHR} 
DS t= 9 LIT ™ "3 SI te AA3 
$$ DATE 10/20/75 
$! BY JTC = MSA CENTRAL, 
$3 THIS PATCH AnDS THE TIME OF DAY TO EACH MESSAGE aS IT IS 
$t ENTERED INTO THE PACKET PAGE, 
S#PATCH NUMBER 445 FOR 7SSMCP CONTAINS 7 CARDS 
LABEL IPCERR3 
INITs SLOWS C349 C352 C369 C379 TWoTWeC40e Cals IT PCERR» 
IPCERRs TPCERR»s IPCERRs IPCERRsIPCERRs TWs SLOWS 
IPCERR: TERMINATE CPLMIx)3 
TERMINALMESSAGE (96)3 


99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991200 
99991300 
99991400 
99991500 
99991600 
99991700 
99991800 
99991900 
99992000 
99992100 
99992200 
99992300 
00000000 
06351055 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
090000000 
18701010 
18701100 
18710100 
18710200 
16710230 
99990000 
99990100 
99990200 
99990300 
99990400 
00000001 
00480010 
02173296 
02173297 
02173300 
02173301 
02173305 
02173306 
99990000 
99990100 
99990200 
99990300 


19504400 
19508400 
19508200 
19575000 
19575100 


"BINVALD"» "3 IPC Cs 41445500 
"20Megen's 41445600 
$1 BY JTC = MSA CENTRAL» SOFTWARE FLASH 161 
BSW te de ee eK AKER ERE HEE HAKAN KKER KRHA 
S#PATCH NUMBER 146 FOR TSSMCP CONTAINS 41 CARDS, 00000000 
LABEL EOF, CLEANUPS 38363000 
DEFINE H = HEADERS} 38385700 
$ VOyDT 38477004 38446500 
BEGIN & COMPILE TO LIBRARY 38447000 
FOR Ty 1# 45 STEP 1 UNTIL 22 DO % COPY PROC» I/Os 36447500 
SEGOLT1] 1% SKELETL]3 % STACK» COMMONs PRIQee ETC. 38448000 
IF (T2 ¢2 SKELC13)) # 0 THEN % LABe EQN, ENTRIES 38448500 
BEGIN 38449000 
SKELC43] t= OF % SO TERMINATE WONT SEE ESPDISK sTUFF 38449500 
DISKWAITCSKELeLCFI+30eT3)3 & REWRITE SKeLe SHEET 38450000 
SEGOLI5) t= H{7] + 13 % ADDRESS OF {ST ENTRY 38450500 
bo 38451000 
BEGIN % COPYING LABEL EQN. INFO INTO CODE FILE 38451500 
IF nISKADDRESS(MIDeF IDs FPBLFNUM43) 5 38452000 
(TytSHE7JtSHO7)4¢1)2H20) = O THEN % NO ROOM 38452500 
BEGIN 38453000 
po 38453500 
BEGIN 38453600 
HISKWAITC*SKEL ,cCFJs309T2)3 % GET SEG, 38453700 
FORGETESPDISK(T2)3 38454000 
END 38454100 
UNTIL (T2 t# SKELE29]) = O3 38454500 
FILEMESSC="DISK  ","OVRFLOW"»MIDSF IDs 38455000 
ReDeC)3 38455500 
END 38456000 
ELSE 38456500 
BEGIN 38457000 
DISKWAITC#SKEL.{CF),30sT2)3 % GET SEG. 38457500 
FORGETESPDISK(T2)3 38458000 


IF ¢(T2 $8 SKEL£29]) 4 0 THEN ¥ MORE OF EM 38458500 
SKELC29) %= T1 + 15 % ADDR» IN CODE FILE 38459000 


DISKWAITCSKELe (CF 1s30eTteCHC TL DIV HEB) 38459500 

+10) + Tt MOD HE8}))3 38460000 

END 38460500 

END 38461000 

UNTYL T2 = 03 38461500 

ENO OF PROGESSING LABEL EQUATION INFOS 38462000 

SEGOL4] t= NABSC¥PCDUP))3 % NEW FORMAT SEG, ZERO 38462500 

HO049.01081) 3* 13 % MARK AS PROGe FILE 38463000 

DISKWAITCSEGOerCF)s30eHL10))3 &% REWRITE SEG. ZERO 38463500 

END OF COMPILE TN LIBRARY PROCESSING3 38464000 

$t DATE 1/19/76 99990000 

$1 BY JTC = MSA CENTRAL, 99990100 

$1 THIS PATCH CORRECTS AN UNLIKELY ERROR IN OISKCLOSE WHICH 99990200 

$1 CAN CAUSE ESP DISK SEGMENTS TO BE LEFT IN USE IF A COMPILER 99990300 

$1 GETS OS=ED FOR DISK OVERFLOW. IN ADDITIONs THE PATCH USES 99990400 

$! THIS OPPORTUNITY TO REWRITE THE EXCEPTIONALLY BAD LOGIC 99990500 

$1 CONTAINED IN THIS ROUTINE? 99990600 
S#PATCH NUMBER 147 FOR TSSMcP CONTAINS 2 CARDS 

UPTIMEQUTEMIX)3 24035300 

DOWNTIMEOUTCMIYy)3 24096800 


$1 BY JTC ~ MSA CENTRAL» SOFTWARE FLASH 162 


Si wee ewe ay ee EEE EEE RH KEW KHER KEHNA KK 


S#PATCH NUMBER 448 FOR YSSMCP CONTAINS 14 CARD 
TEMP « F & K CCTFY3 

$t BY JTC = MSA CENTRAL» SOFTWARE FLASH 163 

$1 SFE ALSO DREXEL Ue PATCHES 60126624748 


LER CPSP PCRS ESCO ISP R SSP OC CACC OPER RC ACS ORE REE ECR EP RSE ESE PREECE EEE R SEERA EE 


$#PATCH NUMBER 149 FOR TSSMCP CONTAINS 7 CARD, 
OS t= 6 HEC; OS t2 2LIT * om} 
DI t= OI * 103 OS t2 7 FILLS 
SI sm ES OS 32 10 CHR; 
BEGIN SIt=LOc as OSt#R DECS OSt22 LIT * "3 
OrseOT"103 OS1z8 FILLS AtaDITZ 
Dyt=Ts SyrsA3 OStei10 CHR 
TWXOUTCT# 10208 CCTF 816 22478132R6)3 
$! DATE 2/41/776 
$t BY JTC = MSA CENTRAL. 
$3 


$t THIS PATCH CAUSES AN EXTRA BLANK TO BE TYPED OUT AFTER THE SEQUENCE 


$: NUMBER IS SEQUENCE MODE. THYS IS CONVENIENT FOR LINING 
$! INPUT WITH PREVIOUSLY PRINTPD OUTPUT SINCE THE LIST AND PRINT 
$1 COMMANDS OF CANDE PRINT AN EXTRA SPACE AFTER THE SEQUENCE NUMBER, 


18273055 


00000000 
03733500 
03734000 
03735000 
19559120 
19559140 
19559160 
19559200 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 


GRE TER EEE EEN EERE EER eee HE IOIIIIID 


S#PATCH NUMBER 150 FOR TSSMCP CONTAINS 12 CARDS, 


00000000 


STREAMCLCFLG&=LONGCARRIAGECS1 J >Vse(VssGETAREACO) )*125303826100 


BEGIN 
nS sm 6 LIT "DELS<#"3 
LCFLG (nS t® 3 LIT wet); 
pS ts LYT LEFTARROWS 
END3 
STREAMCLCFLG8 sLONGCARRIAGECS1 jo ViaVel 3 
BEGIN 
DS $= 3 LIT "eee" 3 
LCFLG (CDS t= 3 LIT “«<")3 
DS = LIT LEFTARROWS 
END} 
$8 DATE 2/11/76 
$1 BY JTC # MSA CENTRAL 
gt 
$1 THIS PATCH AnDS AN EXTRA DELAY FOR TERMINALS WITH LONG CARRIAGES 
$! AFTER THE CARRIAGE RETURN TYPED OUT WHEN THE USER TYPES A 
$! LEFTARROWe THIS PREVENTS THE BEGINNING OF SEQUENCE NUMBERS 
$: FROM BEING LOST IN SEQUENCE MODE. 
S¥PATCH NUMBER $51 FOR TSSMcP CONTAINS 38 CARDS. 
sITSALLBATCH 3 TOGLE,Cig3s1)# 
END 
ELSE * ITS BELOW THE FENCE 
IF YTSALLBATCH THEN % WE WILL WAIT AWHILE 
BEGIN 
TANKSCLL] te NABSCT)2 
CLICK %s CLOCK + PCRTR) * 128) & 2 SEC, 
SLEFEPCO20)3 % WAIT FOR TIME OUT, 
GO TO STARTS % TRY AGAINe 
END} 
IF P¢O,RDS) < FENCE THEN % BELOW THE FENCE 
BEGIN CLICK t® CLOCK + PCRTR) + 1023 + 10233 % 34 SEC, 
COMPLEXSLEEPCINPUTANKCTJ.INPUTN OR TERMSETCPIMIX))3 
ENO ELSE 


03826200 
03826300 
03826400 
03826500 
03826600 
03900000 
03900100 
03900200 
03900300 
03900400 
03900500 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
00000000 
00081785 
03147000 
03147100 
03147200 
03147300 
03147400 
03147500 
03147600 
03147700 
03147800 
03299700 
03299730 
03299750 
03299780 


IF CMEMCMYXs0)).0CF] > FENCE OR ITSALLBATCH THEN 
IF T < @20000 OR T > ®100000 THEN 
SUBROUTINE CLEARALLTANKS3 
BEGIN CLEARTANKC(CLOGLINE,0)3 
TANKSCISSLOGLINE C4088) 1% a¢eP COUP) &OC CTC) 


IF wORKING THEN % MAKE SURE HARRY ISNT 
IF HARRYSTA ® I THEN % DIODLING OUR LINE 

COMPLEXSLEEPCNOT WORKING OR HARRYSTA # 1)3 
CLEARINPUTANK3 


TANKOKEI) ta O3 
END OF CLEARALLTANKS3 
IF LOGLINGe£3387) # O AND PiMyYX # CANDYINX THEN 
CLEARALLYANKS3 
I t= o3 % RewINITIALIZe FOR CORE SEARCH 
CLEARALLTANKS3 
$VOINY 14367035 
BELOW t= ($¢2),08810)55) OR ITSALLBATCH3 
IF FENCEs(32%16) # FENCE OR FENCE < 6192 THEN FENCE %= 163843 
IF J < 7 THEN & NEEM TO FIND HIGHEST ON LINE MOD BELOW FENCE 
+(CHUNKMAy#0) % IN CASE ITS ALL BATCH 
I tCHUNKMAX+CCHUNKMAX#0 D3 
IF CT$=M0A41936032316]) #« FENCE AND T # 0 THEN 
2 @50000 AND T $ ©100000 THEN FENCE t= T3 
ITSALLBATCH t= FENCE 2 8600003 
$3 DATE 2/14/76 
$: BY JTC = MSA CENTRAL CPATCH RECEIVED FROM STEVE KELLEY = LSSG UseKe) 


$1 THIS PATCH ALLOWS THe FENCE TO BE MOVED TO THE TOP OF MEMORY, 
$3 SUPPRESSING ALL SWAPING, ALL JOBS ENTERED ARE TREATED AS BATCH 
$t JOB = REGARDLESS OF RUN» EXeCUTE OR COMPILE. 


$: CANDE PROGRAMS USING TERMINALS MAY RUN WITH THE FENCE AT 32Ke 
$: HOWEVERs THEY WILL NOT Be SwAPPED AND THE yORBS MIGHT BE SCHEDULED 
$: SINCE ALL JOBS ARE TREATED aS BATCH, 


$; It 1S INTENDED THAT ONLY LIMITED TERMINAL USAGE OCCURS IF THE FENCE 
$1: IS aT THE TOP OF MEMORY» SINCE REMOTE JOBS WILL TIE UP CORE WHEN 

$t WAITING FOR TERMINAL INPUT OR wHEN STOPPED OR WAITING FOR EXTERNAL 
$! CONDITION SATISFYED, 


$t THIS PATCH WILL CAUSE THe TSS MCP TO SIMULATE THE 
$t BATCH» OR DCs MCp WHILE MAIyTAINING THE TSS LOGGING 
$: FACILITIES. THIS PATCH WILL NOT CAUSE REENTRANCY TO 
$! OCCUR. 


07500000 
09916000 
14351440 
14351445 
14351450 
14351455 
14351460 
14351465 
14351470 
14351475 
14351480 
14360510 
14360520 
14360530 
14367021 
14367022 
20163200 
44104000 
44109900 
44151050 
44163100 
44191020 
44191040 
44420000 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991200 
99991300 
99991400 
99991500 
99991600 
99991700 
99991800 
99991900 


Soe eee Ee EEE a heehee kee aH RIOOIIIONS 


$#PATCH NUMBER 152 FOR TSSMCP CONTAINS 5 CARDS, 

SPACESTACKSIZE = 85#3— 

SPACESTACKSIZE = 105#; 
ARRAY SPACESTACKE£ #33 
$VOIoT 

I t= SPACESTACKSIZE$ T 8s PC sSPACESTACK)3 FIxs %& 

$! DATE 3/1/76 
$! BY JTC = MSA CENTRAL 
$! 
$1 THrS PATCH y;yNCREASES THE SPACE STACK SyZE FROM 80 TO 85 WORDS TO 
$$ PREVENT A POSSIBLE STACK OVERFLOW IN THE SPACE STACK, THE OVERFLOW 
$$ OCCURRED WHEN OLAY CALLEN OYSKSPACE AND DISKSPACE FORKED 


00000000 
00013870 
00013890 
00013910 
23399000 
44173100 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 


$3 
$1 
$1 
$¢ 
$1 
$3 


GETMOREOLAYDISK FOR Aa PROGRAM RUNNING UNDER THE FENCEe® OCCASIONALLY? 
WHEN FORK WENT Tn GET A FIVE WORD AREA TQ BUILD THE INDEPENDENT 
RUNNER ENTRY IN THE FORKQUE THERE WERE NO FIVE WORD AREAS AVAILABLE 
AND I1T wAS NECESSARY TO BREAK UP ONE OF THE LARGER AREAS, THIS 
INVOLVED CALLING FORGETAREA AND IT WAS THIS CALL ON FORGETAREA 

THAT OVERFLOWED THE STACKes 


99990600 
99990700 
99990800 
99990900 
99991000 
99991100 


Se EH ERE EERE EEE KEE Eee eee ee IIII9IID 


S#PATCH NUMBER ¢53 FOR TSSMCP CONTAINS 43 CARDS, 00000000 
FYELO MAYBEWORKEDON # (7:21]3 21015100 

LABEL START}3 219015200 

X t= @1043 ¥ THIS IS THE CODE WE WILL PaSS TO 21015400 

% GETSPACE THE FIRST TIME. IT REQUESTS 21015500 

w OVERLAY MEMORY FOR THE MCP AND THAT 21915600 

We WANT TO BE RETURNED TO ON A NO 21015700 

% MEMe 21915800 

STARTS 21035900 
IF NOT MC SJeMA¥BEWORKEDON THEN & WAIT TILL OTHER GUY IS 0021016000 
SLEEPCEM£S)3e0 & TRUE [CMAYBEWORKEDON) )3 21017000 

BEGIN 21018100 

7 $= Y.fatinis % SIZE OF PROCEDURE IN WORDS 21018200 

MES] MAYBEWORKEDON 32 FALSES 21018300 

x 21018400 
% NOW WE wILL ATTEMPT TO GET SPACE FOR THIS MCP PROC, 23018500 
x IF we FaIt WE WILL WAIT FOR A SECOND AND THEN TRY 21018600 
% AGAINe THIS ENSURES THAT IF WE GET pS*"ED WHILE 21018700 
% SLEEPING WAITING FOR MEMORY WE WILL NOT LEAVE THE 21018800 
x TOGGLE LOCKED UP FOR THIS PROCEDURE, 219018900 
x 21919000 
IF (T8sGETSPACE(2Z265.X)42) = 2 THEN &¥ NO MEM 21919400 

BEGIN 21019200 

MESYeMAYBEWORKEDON sm TRUES 21019300 

X.04684)] #* TRUES & DONT PUT OUT MESSAGE 21019400 

SLEEPCrCLOCKIJ»NOT CLOCK )3 % WAIT A SECOND 21019500 

GO TO START; 21019600 

END: 21020000 

MCS) t= ¢#PeDUP)) & T CCTC) & TRUE CMAYBEWORKEDONI3 214024000 

% 24304100 
x FYELOS OF SAVEF PARAMETER 24304110 
x 24304420 
FrELO 24304130 

% NEEDOLAY = 09939 % THIS FIELD IS NON ZERO IF 24304140 
% REQUESTOR WANTS OLAY SPACE24304150 

TYPENOMEMANNRETURN = 45801 %& YF SAVEF,£€45802] = 3 THEN24304170 

eJUSTRETURN = 46301 % GETSPACE WILL TYPE OK MEM24304180 

eGETFROMFRONT = 47301 %& IF SUCESSFULL. 24304190 

3 24304200 
STREaAMCX#3C(MESS“0 OR SAVEF,£49%2)"3)s MIXs SIZE» 24305700 
MESSt@MESSS@GETAREACO))3 24305750 

IF SAVEFeJUSTRETURN THEN PCO*RTNDS 24315000 

IF SAVEFeTYPENOMEMANORETURN THEN PCOeRTN?S 24317000 

Ir MESS#O OR SAVEF.£45!2) = 3 THEN TELLSPO; 24401000 

$3 DATE 3/1/76 99990000 
$t BY JTC = MSA CENTRAL 99990100 
$3 99990200 
$! THIS PATCH WILL PREVENT A PROGRAM FROM BEING DS"ED WHILE 99990300 
$$ TRYING TO BRING IN AN MCP PROCEDURE. THIS USUALLY LEFT THE TOGGLE 99990400 
$t FOR THE PROCEDURE LOCKED UP SO THAT THE PROCEDURE WAS PERMANENTLY 99990500 


$1 PREVENTED FROM BEING BROUGHT INTO CORE, 


THIS CONDITION OCCURRED 


$i WHEN THE PROGRAM WAS SLEEPING WAITING FOR A NO MEM CONDITION To 
$s CLEAR UP SO THAT THE PROCEDURE COULD BE BROUGHT IN AT THE SAME TIME 


$t THAT THE OPERATOR DS*ED THE PROGRAM. 


IF THE NO MEM CONDITION DID 


$t NOT CLEAR UP IN ABOUT 8 SECONDS» NSFECOND WOULD FORCE 

$t THE STACK TO BE DS*ED. NOWs ESPBIT WILL HANDLE THE NO MEM 

$$ CONDITION HIMSELF IN SUCH A WAY THAT NO TOGGLES wILt BE LOCKED 

$: SHOULD THE OPERATOR 9S THE PROGRAM WHILE IT YS TRYING TO BRING IN 


$3 THE PROCEDURE. 


$! IF A “NO MEM@ MESSAGE IS DISPLAYED 8Y ESPBIT UNDER THE 
$1 ABOVE CONDITIONS, THERE wILL NOT BE A CORRESPONDING 

$! -0K MEM= MESSAGE, 
SEM eee NEE NER Tee RE ae ke ee tee eH II9I9IINS 
S#PATCH NUMBER 454 FOR TSSMCP CONTAINS 30 CAROS, 


x 
% 


% 
$SVOINT 48038404 


Be BL Be DE TE DE ve DE BL de de 


$t DATE 3/12/76 


IF We REACH THIS POINT THEN THIS JOB HAS USED 
UP I7S TYME SLICE CEITHER PROCESSOR OR 1/0) OR 


THIS JOB Has BEEN DOING EXCESSIVE OVERLAY AND 
DESERVES ANOTHER CHUNK OF MEMORY, IF THE 

USED UP ITS TIME SLICE» WE WILL 

IF THERE IS SOME OTHER PROGRAM THAT 
1S READY TO RUN AND CAN USE THIS GUYS CHUNKS, IF 
HAS BEEN DOING EXCESSIVE OVERLAY AND 
HAS ROOM FOR EXPANSION AND DIONT USE 
A MAX CORE fARD»s WE WILL SWAP IT OUT 

AND SWAPPINGIO WILL ARRANGE TO OBTAIN ANOTHER 


PROGRAM AS 
SWAP IT QUT 


THE PROGRAM 
THE PROGRAM 


CHUNK. 


IF P¢OsRnS) » FENCE THEN % SWAP 


BEGIN 


FOR wT2 


t= SCEPIMIx}] STEP 


1 
IF ACTIVECNT2] > 1 THEN &% 
% 


REGIN 
SwAPCTIMENOs1)3 & 
Gn TO RETURN 


END$ 
IF OLAYCTREPIMIX] < 0 THEN % 
IF MONTEXPANDOBITSCPIMIX] & 


ENn3 


$? BY JTC = MSA CENTRAL 


$? 


BEGIN 
SWAPCTIMEND,1)3 &% 
GO TO RETURNS 


JOB 


UNTIL LOCPIMIx) bO 
SOMEONE CAN USE THIS 
CHUNKe 


EXCESSIVE OVERLAY. 
0 THEN % EXPANDABLE 


$3 THYS PATCH PREVENTS a JOR FROM BEING SWAPPED OUT TO OBTAIN A NEw 
$t CHUNK WHEN THE JOB CANNOT BE EXPANDED, 
Sivek e eee Ree eee eee eee Tee eee eae HHROOIIIORS 
S$#PATCH NUMBER 155 FOR TSSmcP CONTAINS 261 CARDSe 

BEGIN STREAMCAS#TYPEDSPACE(C10sSPQUTMSGAREAV) 18 3% 


DEFINE 


TYPENDSPACECTYPEDSPACEL*eTYPENSPACE2) ® 
(CGETSPACECTYPEDSPACE1»TYPEDSPACE2s0)42)# & 
»ARRAYDESC CARRAYDESCI1,ARRAYDESC2) 3 


99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991200 
99994300 
99991400 
99991500 
99991600 
999914700 
99991800 


00000000 
48038120 
48038130 
48038140 
46038149 
48038150 
48038160 
48038170 
48038180 
48038190 
48038200 
48038210 
48038220 
48038230 
48038240 
48038250 
48038260 
48038270 
48038280 
48038290 
48038300 
48038340 
48038320 
48038330 
48038340 
48038350 
48038360 
48038370 
48038380 
68038390 
48038400 
99990000 
99990100 
99990200 
99990300 
99990400 


00000000 
00005230 
00017005 
00017010 
00017015 
00017020 


CCMCGETSPACE( ARRAYDESC1isARRAYDESC2s0)42]) & ARRAYDESC1 [CSIZE})# %00017025 


PSAVEARRAYDESCCSAVEARRAYDESC1*2SAVEARRAYDESC2) = 00017030 
COMEGETSPACE (SAVEARRAYDESC 1» SAVEARRAYDESC2e1 9421) 00017035 

& SAVEARRAYDESC1 [SIZE1)# %00017040 

3 00017045 


RRRAEARARAALALA TATA LARA VAL VAAL AVATAVA LAAT UAT Y RAL GABALA ALU ARARTXYXEXX 00017100 
SERRE ENE E EEE ee EE REE REE ae eae ee EZOOOL7II0 


%* *%00017120 
* MEMORY AREA TYPES STORED IN 386 FIELD OF FIRST MEMORY *%00017430 
x* LINK OF ALL MEMORY AREAS *%00017140 
%+ *%00017150 


Be tte tH tt I a ba Ra ek hee ee tee 4300017160 
BALALLARVAAAARALEL ALARA KLAR AAAYALATARTATLLU ALY RUVVS VAL LALA TELABLLVLLULXOOOL7170 


DEF INE 00017180 
UNKNOWNAREAV = Of % 00017190 
sCODEAREAV 2 14 % 00017200 
»DATAAREAV s e# % 00017210 
» TOBUFFERAREAV = 34 8% 00017220 
»ALGOLFIBAREAV = 4¢ % 00017230 
sINQUIRYBUFFAREAV = 5# % 00017240 
»COBOLFIBAREAV = 6# % 00017250 
sTYPE7INTAREAY zs 7# % 00017260 
eDISKHEADERAREAV = &# % 00017270 
eMAINTBUFFAREAV = O# % 00017280 
»LBLEQNAREAV me {OF % 00017290 
» SEGZEROAREAV = tit % 00017300 
» STACKAREAYV z= 124 % 00017310 
eTYPEL3INTAREAY « 134 % 00017320 
eSCRATCHDIRAREAV «= 44# % 00017330 
sOPSETAREAV = 15# % 00017340 
sOIRTOPAREAV = 16# % 00017350 
» SPOUTMSGAREAV = 17 % 00017360 
»UVROWARE AV = 18# % 00017370 
» JARROWARE AV 2 19H % 00017380 
»CLOROWAREAV s 208 % 00017390 
s INQINPUTAREAV = 2i# % 00017400 
» INTARRAYAREAV = 22# % 000174410 
»RJEINPUTAREAY = 238 % 00017420 
eDCQUEUEAREAV = 244 % 00017430 
»DALOCROWAREAV x 254 % 00017440 
» SHEETAREAV mz 26H % 00017450 
» STAWORDAREAV 2 27# % OC MCP ONLY 00017460 
eKEYINBUFFAREAV 2 28H % 00017470 
»FSAREAV = 294 % . 00017480 
POCL9QUEUVEAREAVY = 30# % DC MCP ONLY 00017490 
» AVTABLEARFAV =o 314 % 00017500 
pTRACETABLEAREAV = 328 x DC MCP ONLY 00017510 
»SEGDICTAREAV =z 334 % 00047520 
» STACKPRTAREAV =z jae % 00017530 
sMCPTABLEAREAV x 35# % 00017540 
»s IRSTACKAREAV = 36# % 00017550 
sFPBAREAV = 37# % 00017560 
eCONTROLCARDAREAV «2 384 % 00017562 
sLABELARE Ay = 39H % 00017564 
»MDUMPAREAV = 4O# % 00017546 
2 ESPDISKAREAV s ig % 00017568 
»LOGAREAV = 4ot % 00047570 


sCANDEINPUTAREAV = 434 % TSS MCP ONLY 00017572 
sOBJOBINPUTAREAV = 44H % TSS MCP ONLY 00017574 
sTYPE45 = 45# % 00017576 
sTYPE46 = 464 % 00017578 
a TYPE47 = 47# & 00047580 
2 TYPE48 = 484 % 00017582 
3 00017600 


RLAALARTSALALALL TATA ALL VALYVRL LALLA RA SALTALA LLY ALLL ALVA TALULALA VAX AXLUXXFXO0017700 
TRIG IOI III III UISIOIUIOIIOI IG i Rit to tk sick ie titi 300017710 


Xx ¥%00017720 
** MEMORY L INK 8 *%00017730 
x #%00017740 


SIO OGINI II IOIIG III III IISIUIIUINISIIOII Gita inti gtk kik nit $00017750 
RARAALALESVAAALLRLALALKA ALLL ALAA LLARLEAALL LULA RATA RAAAALLLVEBAALKURBXX 00047760 
z 


00017762 

% FIELOS OF MEMORY , INK 9 OF ALL AREAS 00017764 
% 00017766 
FIELD 00017770 
AREAAVAILE = 01101 % = 0 FOR IN@USE AREAs = 1 FOR AVAIL, AREA 00017780 

» AREASAVEF = 02101 xy = 1 FOR IN@USE SAVE AREA, = O FOR OLAy AREA00017790 
»AREATYPEF = 03:06 % TYPE OF AREA (SEE aBOVE) 00017800 

» AREAMIXF = 09:06 % MIX INDEX OF QWNER OF AREA 00017810 
»AREABACKLINKF = 18315 % ANDRESS OF PREVIOUS AREA 00017820 
eAREAFWDLINKF = 33:15 % ANDRESS OF NEXT AREA 00017830 

3 00017840 

$ VOIDT 9006800, 00059000 


RLRALAL VARA EAVAL RATA KALLA LEA YALL LELLALL LALLA YA LUYRLLLVLTALALUALAULLVXYXXXXO0060000 
BIOSIS IOI OGG OI RIDIN Unig iia iia tiene kin % 00060010 


x* *%00060020 
x* MISCELLANEOUS FIebo DEFINITIONS *%00060030 
Zs *%00060040 


TEIN II IOI IU III UIE IGUUINEINO UNG iit iin tiititn tite ntti 6% 00060050 
RIALABAABAAALRVUAALLLARRLAARY ARYA LAALAVAALUVVAL LY ALAYAVLARLLLAALTAAXXXXXFO0060060 


00060070 

FIELD 00060080 
FF S 1At15 % 00060090 

oCF = 33315 % 00060100 
eCTFr e& FF % 00060110 
ectc = CF x 00060120 
»MSFF = 16801 % 00060130 

; 00060999 

x 00061000 
x FIELDS OF alt ENTRY 00061010 
% 00061020 
FIELD 00061030 
FILEBIT a 04901 & 00061040 

» OWNBIT = 02:04 % 00061045 
sDIMENSYONS & 93305 &% 00061050 
»BLKCNTR = 08910 X% 00061060 

» MOM ™ 18115 % 00061070 

3 00061999 

x 00062000 
% FIELOS OF DATA DESCRIPTOR 00062010 
x 00062020 
FYELO 00062030 

% FLAGBITF = 00:00 % 00062040 
x DATABITF = 01:01 % ALWAYS OFF FOR A DATA DESCRIPTOR 00062050 


PBIT = 02101 % ON IF DESCRIPTOR POINTS TO AREA OF CORE 00062060 
sSIZE 7 08110 % S1ZE OF ARRAY ROW IF ARRAY DESC, 00062070 

% 0 FOR INDEXED DATA DESC. OR NAME DESC, 00062080 

% sMOMADDRESSF = 18115 % ANDRESS OF MOTHER DESCRIPTOR, 00062090 
% »ADDRESSF = 33815 % If Part IS ON THEN THIS FIELD CONTAINS AN 00062100 
% ACTUAL CORE ADORESS, IF THE PBIT 1S OFF THEN 00062110 

% If THe VALUE OF THIS FIELD IS GREATER THAN 00062120 

% OR EQUAL TO 512 THEN THE FIELD CONTAINS A 00062130 

% DaLOc ADDRESS WHICH CAN BE USED TO LOCATE THE 00062140 

% DATA IN THE OVERLAY DISK AREA ASSIGNED TO THE 00062150 

% THE PROGRAM, IF THE VALUE OF THE FIELD IS LESS00062160 

% THAN 542 THEN THIS FIELD CONTAINS A CODE 00062170 

% InyDICAaTING THE STATUS OF THE AREA. 00062180 

% 0 NEVER ACCESSED OVERLAY AREA, 00062190 

% { NEVER ACCESSED SAVE AREAe 00062200 

x 2 NEVER ACCESSED OVERLAY AREA WHICH 00062210 

% WHICH IS ASSIGNED TO AUXMEM, 00062220 

% 5 INDICATES OVERLAY IS CURRENTLy IN 00062230 

x PROCESS FOR THIS AREA 00062240 

x 6 INDICATES OL AY HAD IRRECOVERABLE 00062250 

x ERROR WHEN QOVERLAYING THIS AREA.00062260 

% THE NEXT ACCESS TO THE AREA WILL00062270 

% CAUSE THE PROGRAM TO BE TERMI*® 00062280 

% NATED. 00062290 

3 00062999 

% 00067000 
x MISCELLANEOUS DEFINES 00067010 
% 00067020 
DEFINE 00067030 
CURBLKCNTR #2 16 4 % 00067040 

» ATTNDX = 64% 00067050 

eF TF = 18'18915 # % 00067060 
eFTC = 33918115 # % 00067070 
esOELTA = 11 4 % 00067080 

3 00067999 

T t= GETSPACE(S#1s SPOUTMSGAREAVs64» 0) + 13 02134300 
MeMESSAGEw1).CARFATYPEF] #2 SPOUTMSGAREAVS 02134710 

AS*TYPEDSPACE (152 SPOUTMSGAREAV )3 02205475 

S +2 IF METI.AREATYPEF ® CODEAREAV THEN 02216000 

MCT+1).,CCF) ELSE 03% 02216010 

ELSE PCMECT*2],AREATYPEF sOUP) ¥ TYPE7INTAREAV AND 02216600 

P¢XCy) # TYPELJINTAREAV) OR L = O3 02216610 

TPR a¢MCTAtsTYPEDSPACE(513*MDUMPAREAV) )) 02434430 

2 S543CS1ZE) a 5£24%458313% 02434435 

LBL t= TYpEDSpPACE(LOsLABELAREAV)3% 02639000 

INPUTANKUSTAI ¢CFFItsReeCIF Ti GTR o THEN Ti ELSE 03618800 
TYPEDSPACE (32s0BJOBINPUTAREAV ) ) 423 03618810 

LASTSEGLOJefFF) #* (SIEBTYPEDSPACE 03638500 
C32sCANDEINPUTAREAV) )423 03638600 

$ VOIDT 05804200 
PCPIMIX)3 PIMyX8eO3 05811460 
LtaGETSPACE CAs SCRATCHDIRAREAVs SCRATCHSAVE D3 05811470 

INBUFF t= GETSPACEC11s1OBUFFERAREAV sl )+23% 07086000 

FIRSTCARD 3@ GETSPACE(LO»CONTROLCARDAREAV G1 423% 07087000 

ELSE BEGIN OUTRUFFOLD t= OUTBUFF 32 07095000 

GETSPACE (60s IOQUFFERAREAVl1)423% 07095100 

H $2 SAVEARRAYDESC( 302DISKHEADERAREAV)3% 07097000 


SHEAT t= pMCFS=TYPEDSPACE( 312SHEETAREAV+64)1) & 30081Z2E33%07256400 


SEGO 88 TYPEDSPACE(30*SEGZERDAREAVt6O4 4% 

H t= CIDROWER] ta CMCSt= 
GETSPACEC9O4sEIDROWAREAV+6491)42))] & 94 SIZE} 

TISGETSPACECL3*CONTROLCARDAREAV+6420)443 


07257400 


07433000 
07433100 


07446000 


SHEAT « (MCF reTYPEDSPACEC3LsSHEETAREAV+64 )1I3&300S1ZE1508274250 


SEGO +3 TyPEnNSPACE(30»SEGZEROAREAV+64)3% 
Cr*TYPEDSPACE (S#MAINTBUFFAREAYV )3% 

BEGIN Ria TYPEDSPACE(S»MAINTBUFFAREAV)3% 
StsCMCTYPEDSPACEC 31sSHEETAREAV)I] & 30CSIZEI]3% 
DLNKt=C{MCTYPEDSPACE(31*SHEETAREAV)J) & 30CSI12E13% 

INTRNSC ta CMCINTLOCs =GETSPACECMAXINT*TI7SIZE* INTARRAYAREAVS1 +2318 
BIs(GETSPACE C91» TORBUFFERAREAVs1)4+2) @ 9OLSIZE1;% 
LOGINFOt=SAVEARRAYDESC(C20/_LOGAREAV) 3% 
NTLSSGETSPACE CSsMAINTBUFFAREAV 46420) 423 
TiaGETSPACE (12, CONTROLCARDAREAV+64,0) 443% 
SEG te IF MERI. TAREATYPEF = CODEAREAV THEN MER*4],.C€CF] ELSE 03 
ELSE PCMER@2]eAREATYPEFs OUP) #4 TYPE7INTAREAV AND PCXCH) 4 
TYPEL3INTAREAY) OR LOCN # 03 
BUFF tt TYPEDSPACE(GO,MEYINBUFFAREAV) + 13 
FHreCMCFieTYPENSPACEC TEMPsDI SKHEADERAREAV)I] & TEMPCSIZE]3% 
FH tm EMCFLeTYPENSPACE CIOs DISKHEADERAREFAV)}) & 30 SIZE3 
STREAM(CAsB, TITS SGETSPACE (10 sCONTROLCARDAREAV+46420)+4)3 
TI=GETSPACE CI 4S sCONTROLCARDAREAV 46400) 443% 
S t= CMCTYPEDSPACEC31»SHEETAREAV))) & 3006138110)3% 
HDR t= GETSPACEC 30/01 SKHEADERAREAV 21) +23 
FPR t= TYPEDSPACECSEGOCS] INX 1s FPBAREAV)3 
FBreGETSPACECSEGOL716(CFIXFTRUNGs FPBAREAVs 1) +23 
LBL'eaRRAYOESCC30,LBLEQNAREAV) 32% 
LBLISARRAYDESC( 30s, BLEQNAREAYV 5% 
SEGOS ®ARRAYDESC ¢30»SEGZEROAREAV )3% 
SINFOCMIX}, CCF} #= CSTACKLOC te 
GETSPACE(SEGQ0C3) INX Sf£21] INX 64% STACKPRTAREAVs 1)) + 23 
TRPC4OItslCMETISGETSPACECSEGO[IIACCFIs,SEGDICTAREAVs1)+2))3 
STREAMCOD 8 8D ALOCROWE MIX] :eSAVEARRAYDESC(CDALOCSI ZE »DALOCROWAREAV) )3% 
$ VOID 
STREAMCD t= UVSPACE t# TYPEDSPACECUVSIZE*UVROWAREAV) 23 
MCHDR#=2) te (C#PCDUP)) @ JARROWAREAV AREATYPEFS & 
STREAMCQISFSROW(MIX12SSAVEARRAYDESC(C4sFSAREAV) 3% 
TRPC3]8eeMCGETSPACEC( 1 »FPBAREAVs1)e2)) ELSE % 
BEGIN CARD,(033%18] 8s TYPEDSPACE(13,CONTROLCARDAREAV) 423 
Is sGETSPACE( 30, JARROWAREAVEMIXCCTFJ54)423 
TsaGETSPACE CUVSIZEsUVROWAREAVQMIXECTF Js 1423 
SHEAT smCMCF SaTYPEQSPACE(C31sSHEETAREAV4¥64))) & 30£823821035% 
SEGO ts TYPENDSPACE (30, SEGZERQAREAV+64) 5% 
IF (MIX t& LINKeAREAMYXF) #* 0 THEN GO TO MCP3 
IF PCLINKeAREFATYPEF® DUP) = CODEAREAV OR PCXCH) & 
TYPELZINTAREAV THEN GO TO CODE; 
IF LINK AREATYPEF = TYPEA3INTAREAV THEN % TYPE 143 INTRINSIC 
IF PCLINKeAREATYPEF SOUP) ® TYPE7ZINTAREAV OR PCXCH) » 
TYPEL3INTAREAV THEN GO TO INTRINSIC3 
IF LINK*eAREATYpEF @ DATAAREAV THEN % OVERLAYABLE MCP DATA 
MCGETSPACE s=T]t=¢#P COUP) DETYPECAREATYPEF JQMIXCAREAMIXF 3 
BEGIN TMP 8aGETSPAce(CFPBPTReETRLNGs FPBAREAV, 1) 423% 
HtaCMCTYPEDSPACE(42,DISKHEADERAREAV)]] & 3078838!810)3% 
TISGETSPACE¢ 30/DISKHEADERAREAVs 1) +238 
TMptaGETSPACE C12» CONTROLCARDAREAV 46495 )+43% 


08275500 
08385100 
08410000 
08881000 
08930000 
09506000 
12672500 
12848500 
14411820 
14533000 
16853000 
16854200 
16854300 
16954200 
18285200 
18286000 


18438120 


18520300 
20026600 
20028700 
20049000 
20049800 
20059100 
20089800 
20110400 
20116100 
20116200 
20124900 
20127300 
20127400 
20156800 
20169700 
20183610 
20187400 
20600950 
21304000 
21308000 


22069050 © 


22069100 
22297000 
22303000 
22303100 
22356400 
22386000 
22 386050 
22386100 
24400000 
28050800 
28070000 
28288000 
28435000 


LABL=ARRAYDESCC1S+LABELAREAV) 3% 28451800 
FAtsTYPEDSPACE(TMPtsTEMP+(TEMP OIV 2)+2sDATAAREAV )+13% 28452600 
CCASSSAVEARRAYDE SCC 30s ESPDISKAREAV )3% 28455400 
FAtETYPEDSPACEC(CBUMPFAS=FASZ#2IF MAX > 128 THEN 128 ELSE MAX)+ 28456800 
CFAS7 DIv 2)#2,DATAAREAV)4+13% 28457000 
StsARRAYDESCC30,ESPOHISKAREAV) 5% 28855000 
BEGIN MCALPHA+] J¢¢CURLOC+GETSPACECBSIZE +4, 10BUFFERAREAVe1)42)423 37406000 
METYPmALPHAw2}taM OR CGETSPACECC(CTitaM( TL] ,SIZE)4+4s 38107000 
LABELAREAVs1)4#4) & TICSIZE] & CNTLBITSEFTF 1338107100 

BEGIN NT3 t# TYPEDSPACECI3»LABELAREAV)+23% 38107300 
MCTLS@ALPHAw2]¢2M OR (CGETSPACEC(TItaM( TL) eSIZE) +4, 38205000 


LABELAREAVe1)44) & TACSIZE & CNTLBITSCFTF 1538205100 
SEGOt = eMC TYPEDSPACE (62s SEGZEROAREAV )11830(S7ZE13 38434000 


IF COBOL>O OR FIBl4yel 741) THEN 39304000 

MCFIB INX NOT 1J.AREATYPEF 8% COBOLFIBAREAV 39304500 

ELSE 39304600 
MCALPHA@77eARFATYPEF $© ALGOLFIBAREAV3 39305000 

KEY t= GETSPACECSsMAINTBUFF AREAV464,0 )+23 41312700 

KEY #3 GETSPACECSsMAINTBUFF AREAV4+64s0) 423 41314000 

Ti t= TYPEDSPACEC{SesMAINTBUFFAREAV) 3% 41323130 

MLA te CMCA2RGETSPACE(C33,MAINTBUFFAREAV,0)*43)) & 320SIZE]3% 41328600 
TsecTisGETSPACE (y+2s IT NQUIRYBUFFAREAVs0)4+1)+3 AND NOT 33 440441000 
MeC8ayt=TYPEDSPACE( Is MCPTABLEARE AY J+TJ2503 44153500 

SUtSGETSPACEC Zs AVTABLEAREAVs1 +23 44240840 

SCRATCHVEC 2 eC MEGETSPACE(C10sSCRATCHDIRAREAVs SCRATCHSAVE 942) ] 44241180 

&@ 40 (CToStZel3 44241185 

BEGIN 48052000 
PeNT&sBLOBeNTLsGETSPACECNTY »STACKAREAVs 3) 2348052100 

$1 BY JTC = MSA CENTRAL 99990000 
$1 DATE 03/17/769 UPDATE 11/05/76 99990100 
$t THIS PATCH CAUSES THe TSSMCP TO TYPE MANY OF THE MEMORY AREAS 99990200 
$1 THAT WERE LEFT UnTY@ED BEFOREe THIS PRIMARILY BENEFITS THE DUMP 99990300 
$t ANALYZER, 99990400 


St ER RE EN EEE TER EMER EEK ERR EKER EERE EEHIOIIIOIOS 


S#PATCH NUMBER 156 FOR TSSMCP MARK XVI CONTAINS 5 CARDS, 


If HEADERs (CF) GeQ 64 THEN FORGETSPACECHEADER)3 12561600 

$VOIOT 12372000 
SVOIDT 12573000 
P(4) 12573500 

ELSE 12574000 


$: BY yTC = MSA CENTRAL 
$: SOFTWARE FLASH #164 AND CORRECTION FLASH #190 


(PRU RPERACRESEESSCOS OCC COS EPC SECO CO CRC C ORE E RESP CORSE REE EEERERERSR REE ES S 


S#PATCH NUMBER 458 FOR TSSMCP CONTAINS 18 CaRDS, 00000000 
ARRAY WORKERSTACKe#]3 % DESC, TO OLOWJERDHAROLDS STACK, 00299500 
ARRAY ESPTABE*]$ REAL ESPCOUNTS % 00399000 
GETESPOISK tw CC PCDUPJeCCFI"ESPTABeC(CFJ)x8 069031000 

S te CESPTAB,CCFI14S,030815]) & S£3083)3 % 06038000 

DEFINE HARRYSTA x WORKERSTACK(5)#, % STA 14344100 

I te ws TY ta pC ESPTABI3 FIX] & 44173200 

1 $= 1003 T te Pe, WORKERSTACK)$ FYIX3 % 44179100 

I t= O03 44179200 

FOR T t= 4 STER 4 UNTIL NUMSTACK 00 44179250 

BEGIN 44179300 

MCJ) #3 13 % LINK TO PREVIOUS STACK IN Q, 44179350 

MCJ+13 #3 WORDOFEASES % CLEAR STACK 44179400 
MOVECSTANDARDSTACK™2s 341054293 44179450 


1 3s ys} % REMEMBER WHERE THIS STACK IS 


44179500 


J te J + STANDARDSTACKS % COMPUTE ADDRESS OF NEXT STAC 44179550 


ENDS 
STACKQ $= 13 % POINT TO FIRST STACK IN Q, 
MOVECO9s Ts BWORKERSTACKe(CFJeT+1)3 *%TO SPOT POSSIBLE OVER 
$8 DATE 3/19/76 
$3 BY yTC @ MSA CENTRAL 
$3 
$t THIS PaTCH CAUSES DESCRIPTORS TO BE BUILT FOR THE WORKERSTACK AND 
$: ESPTAB TO HELP THE OUMP ANALYZER ANALYZE THE MCP SAVE AREAS. 
LER SRRERAREAESASTE CECE PE LOPES TCCCOR OSES ERC E SAPO SECC ECE SSS EE SERS E ESE SS | 
$#PATCH NUMBER 159 FOR TSSMCP CONTAINS 25 CARDS 
REA, PROCEDURE INPUTSCANCMOBE, SOURCE sDESTsNUMs FLAGS» SEQMODE D3 
VALUE NUM@FLAGSsSEQMODES 
REAL MONE s SOURCE »DEST»NUM»sFLAGS» SEQMODES 
REAL PROCEDURE INPUTSCAN CMODEs SOURCE» DEST»NUMsFLAGS*SEQMODE )3 
VALUE NUMsFLAGS+SFQMODE3 
ReAL MODE» SOURCE sDESTsNUMs FLAGS» SEQMODES 
Ut aC DEST e £3083 ADESTL3IOF 93215 3M CINPTSCel 3083 IRINPTSCL308338153)3 


IF us, AND SEQMODE %U=y WHEN ONLY “oe” LEFT IN BUF es AND IF SEQMQDE 
THEN ZTRUEs THEN USER BACKSPACED TO FRONT OF BUFFER, 
BEGIN 
STREAM CAtmOtDEST); 
BEGIN DI gsDleai3 ZMAKE INPUT LOOK LIKE A NULL LINE 
DSt22L rT" «3% CSPACE) TO PREVENT CANDE FROM 
AtxDI3 XBELIEVING THIS IS ENn OF SEQ MODE 
END3 
PCCDOESTI»STD)3 
GO AUT3 
END} 
INPUTSCANS#U3 


NItsINPUTSCANCMODE,SORCe AS, (MC ALI CFF I"X,0288) 52 FL AGSe0)3 
Nit RINPUTSCANCMODE » SORC sAS3eMCALI EFF IsFLAGS»0)3 
DEFINE SEQMODE = IF STATAB,STATIONTYPESTWX THEN FALSE 
ELSE CLINE DISCESTAIBTWX AND SEQARRAYCSTAI£0)#3 
NUM**NUM+INPUTSCAN( MODE, SOURCE sJsBUF SZ*T4eFL AGS» SEQMODE )3 
NUMt®NUM+INPUTSCANCMODE, SOURCEs JsBUF SZeF LAGS» SEQMODE D3 
$t BY DJZ=MSA CENTRAL 
$t SOFTWARE FLASH #175 AND CORRECTION FLASH #185 
$1: SOFTWARE FLASH 200 CORRECTION 
(ER SU CEC CS ESOS SPRL SC OSEPESOECESTOSE SELLE ESE RE EERE EEE ERR RSE EERE REESE SE 
S#PATCH NUMBER 160 FOR TSSmcP CONTAINS 12 CARDS, 
BEGIN 
IF P¢OsRNS) GTR FENCE 
$VOIDT 
ELSE CoMPLEXSLEEpP( (CB oR REPLYCPIMIX] GTR O QR TERMSETCPIMIX)))3 
$SVOIDT 06472501 


IF JARCPIMIXe9}«¢SYSJOBF N&Q@ LIBMAINCODE THEN GO INITIATES 
ree PCP&RCWEOTCIs0»ROSeOsXCH»P&P(CTFIeSTF)3 
$SVOIDT 
IF CMEMCPLiMIXsMLINKLI9.0C0F ] GEQ FENCE THEN 
$VOIDT 
$SVOIOT 
$VOIOT 


$1 BY JTC» KFK = MSA CENTRALs SOFTWARE FLASH 176 
URC C ECCI CESSES ELISE OSE CTP ere eer eee 


S#PaTcH NUMBER 161 FOR TSSMcCP CONTAINS 1 CARD 


44179600 
44179650 
44189600 
99990000 
99990100 
99990200 
99990300 
99990400 
99999999 


03071000 
03072000 
03073000 
03276800 
03277000 
03277200 
03290600 
03290700 
03290800 
03290810 
03290820 
03290830 
03290840 
03290850 
03290860 
03290870 
03290880 
03290890 
03290900 
03307000 
03313400 
03614600 
03614700 
03618200 
03634000 


06468000 
06470000 
06471000 
06472100 
06472200 
06473100 
28101200 
37180675 
37226100 
37226450 
37226500 
37227500 


BOMB: ? If OU218 THEN FORGETITI® 07231000 
$: BY O0JZ = MSA CENTRAL, SOFTWARE FLASH 177 


(WES ESSE CREE ESET RS EC RSE POETS OPE REELS EERE EE EERE PES EERE SEER EERE REESE SS 


$#PATCH NUMBER 162 FOR TSSMCP CONTAINS 3 CARDS, 


IF (NTOt=P)eCesi] THEN MLEFT AT 12626500 12635500 
$SVOIOT 12638000 
BEGIN IF ¢lODtsT.69824) HIV 5240 THEN XSPaCE FORWARD 12650500 


$:BY DJZ = MSA CENTRAL» SOFTWARE FLASH 180 
PRET EETESE LILA TLIL TELE LITA LISLE Lice hs: 
S#PATCH NUMBER 163 FOR TSSMCP CONTAINS 3 CARDS. 


$ SET OMIT = PaCKETS 20034060 

ELSE FORGETSpPACECHOR)3S 20034070 

$ POP OMIT 20034080 

$: BY DJZ = MSA CENTRAL», SOFTWARE FLASH 183 

LRP ESCESRESESESCOSESCE LOPE LE PERSP CREE SESE EERE PEER PEE EERE EERE CREPES ES ES SE 

S#PATCH NUMBER 164 FOR TSSMCP CONTAINS 16 CARDS. 00000000 

REAL ER{sER2sER32 LABEL ERSyS3 20511152 

ER1Lta" ye "3% 20511175 

OR SYSTEMFYLECECMMEOJscMMEC1)) THENS 205111488 

BEGIN ERSYSt ErttanrSYSTEM "JERZtE"FILE © *3 GO ERROR END3 20511190 

BEGIN ERIte"SAME FIMJERZSA"LE De "3 GO ERROR END 20511303 

IF TYPESUSEV AND MCOPYTN+2)<0 THEN 20511312 

BEGIN ER te"SECURITMJER2Ia"Y FILEI*SERIS ate "3 GO ERR E€NDJ 20511313 

BEGIN ERIS a"INyVALIN“SER2S2" USER) O"3% 20511335 

ERR FORGE TSPACECOPITN)3&% 20511340 

END ELSE IF OPTNea2 THen GO ERSYSX @ LINE 20511190 20511363 

ELSE IF OPTn=y THEN BEGIN ER{Is"IN YSEMJEROt ate “ END 20511364 

ELSE IF OPTys0 THEN BEGIN ERI ta*ngT ON "SEROte"OISK)© * ENDS 20511365 

ERRORS 20311366 

STREAMCAS@(CMM(0)),ERrslERL1],B'sC(COPTNIsSPACE(10)))3 20511370 

NSt#25 LIT * SECURITY MAINT IGNORED ("3 SItsER3% 20511400 

3CSrreSle13 pSta7? CHR)3% 20511405 

$! By 04NZ = MSA CENTRAL CSUBMITTED By S, KELLEY * NATAL UNIVERSITy) 99990000 

$! DATE 05/12/76 99990100 

$3 THIS PATCH MAKES THE "SECURITY MAINT IGNORED" MESSAGE MORE 99990200 

$1 EXPLICIT BY ADDING ONE OF THE FOLLOWING REASONS TO THE MESSAGE! 99990300 

$t 4) SYSTEM FILE 99990400 

$} 2) SECURITY FILE 99990500 

$3 3) INVALID USER 99990600 

$! 4) IN USEF 99990700 

$1 5) NOT ON OFSK 99990800 

$t AND 6) SAME FILE, 99990900 

Soe RE REE HERRERA ERA ETE ERE eee eR IOIIOIOD 

S#¥PATCH NUMBER 165 FOR TSSmecP CONTAINS 1 CARD. 00000000 

AND CCMFID EQV "BADISK %) NEQ@ NOT Q) 28415250 

$t BY DJZ = MSA CENTRaL CSURMITTED BY Se KELLEY = NaTal UNIVERSITY) 99990000 

$t DATE 95713/76 99990100 

$t THIS PATCH WILL PREVENT “*BAnISK” FILES FROM BEING DUMPED TO A 99990200 

$$ LIBRARy TAPE, PREVIOUSLY, IF THESE FILES WERE RE#LOADED, THEY 99990300 

$t WERE ALLOCATED AS NORMAL FILES» WITH A VERY SMALL CHANCE OF 99990400 

$t BEING PLACED IN THE PROPER SPACE*s FOR DUMPING PURPOSES ONLY» 99990500 

$8 ALL “"BADISK" FILES WYrLL NOW BE TREATED AS SYSTEM FILES. 99990600 

$! NOTE THAT SITES SHOULD NOT ALLOW USER FILES 10 BE CREATED WITH 99990700 

$: "BADISK" <MFYD>S, AS THESE aLSO WILL NOT BE DUMPED. 99990800 

SU aH RK EER EERE EEE ETE TERE HE REKERE aE KKH EEEEIIOIOIORO 

S#PATCH NUMBER 166 FOR TSSMCP CONTAINS 18 CARDS, 00000000 

% 023913 FILE Tn BE ADDED CNOT ON DySk) 28200061 


$1 
$t 
$3 
$1 
$1 
$3 
$t 
$1 


Lae EERE ERE EERE EEK EREN KR ES 


x 


Kee HEE KEENE EEA Re 


x 


MUSTADD 


= DAely3S1I] 4, 


CHECK IF FILE IS TO BE aDDED 


IF ADD 


V THEN 


IF NOT MUSTADD THEN 


IF OU ® 18 THENZ TAPe TO OISK 
IF DIRECTORYSFARCHCeMFIDsFIDs5) NEQ O¥ ALREADY ON DISK 


THEN 


ELSE BEGIN MrFAINFOsyJell381)2"13 MUSTADDtei END; 
IF MUSTADD THEN Te2z0 ELSES ADD FILE NOT ON OISK 
WON DISK" yt @ "p 
BY DJZ =» MSA CENTRAL CSUBMITTED BY S, KELLEY * NATAL UNIVERSITY) 
DATE 05/13/76 
THIS PATCH wILL PREVENT THE MCP FROM SCANNING DOwN A LIBRARY 
DUMP TAPE TO FIND A FILE WHEN THE FILE BEYNG ADDED 3S ALREADY 
ON DISK. A NEW MESSAGE IS ALSO INTRODUCED. THIS WILL BE SENT 
TO THE PACKET PAGE AND ALSO TO THE SPO IF LIBMSG IS SET, THE 
FORMAT OF THE NEW MESSAGE IS? 
e<MPID>/<FID> NOT COPIED CON DISK)» MT<UNIT> 


BEGIN 


LBMESSCABSCMFID)s FID» "67268sTINULIUJ*s SPOUTUNIT»LIBMSG)3 


IF OSED THEN ABORT 


GO NEXT; 
END 


% 68 


28208300 
28270806 
26270807 
28270808 
28270809 
28270810 
28270842 
28270814 
28270816 
28270818 
28270820 
26270822 
28270826 
28270828 
28270830 
28281550 
41493085 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 


SEHR EHH ee RHE UREA REET KEE IIIIIIOS 


$#PArTCH NUMBER 167 FOR 7SSMCP CONTAINS 1 CARD, 

IF KINpe7 AND FIBE13] 2028810) 4ABSCCOBOL) THEN GO FIND ELSE 
DATE 6/23/76 
BY yTC = MSA CENTRAL 


$1 
$t 
$t 
$3 
gt 
$3 


THIS PATCH FIXES QTHERFILEQPENOUT SO THAT COBOL6a— PRINTER 
BACK UP TAPES WILL HaVE CORRECTLY FORMATTED PRINT 
FILE LABLES WRITTEN ON THEM, 


00000000 
38272000 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 


SE eR ERR ETHERNET kee ee Kee EHH IIOIIN BOO 


S#PATCH NUMBER 468 FOR TSSMCR CONTAINS 114 CARDS, TAPE PARITY 
LABEL ERRORSsD SKERRsDSsXeSWoLPoDKeDXeDX1e0CeOKeLi3 
TYPE tm Oke L Pe Oke OKs OKs OK eo OKs OKs OKs OK 


b 4 ; 
% CHECK FOR A PARTIAL WORD BINARY READ WITH NO PARITY ERRORS.e 
% THIS IS ILLEGAL AND IS MARKEnN AS BEING A PARITY ERROR, 


SWITCH 


IF €Rel188123 ANN @4462) = @0440 THEN % BIN READ@=NO PAR 
If ReCist3y # CCBeRe2281]) AND 7) THEN % PART WD XFER 
ts MOD3I0S3 % MARK AS PARITy ERROR IF MOD I7I 


R 


$SVOIDT 04167804 
IF U LE@ 15 THEN & TAPE I/O 


$! 
$! 
$1 
$1 
$1 
$3 
$t 
$1 
$3 
$1 


DATE 9/14/76 
BY yTC = MSA CENTRAL 


0f€28%1) 


ON BINARY READS FROM TAPFe 


THIS PaTCH REWRITES THE ¢ODE FOR HaNDLING PARTI aL WORD TRANSFER 

SINCE THIS IS ILLEGAL FOR THE BS700 

SUCH 1/0 RESULTS ARE MARKED AS PARITY ERRORS, PREVIOUS TO THyS PATCH 

SPACE REVERSE I/9 S LOOKED LIKE PARTIAL WORD TRANSFERS AND THIS 

CAUSED ONLINE/MAINT TAPE CONFIDENCE ROUTINES i925 AND 3 TO FAIL. 
NOTE? SITES THAT READ NON@STANDARD TAPES THAT HAVE BINARY 

PARITY AND PARTIAL WORD RLOCKS MAY WANT TO ELIMINATE THIS PATCH 


00000000 
04125000 
04128000 
04129520 
04129530 
04129540 
04129550 
04129570 
04129580 
04129590 
04167100 
94129560 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 


$! SINCE IT WILL CAUSE RETRIES TO BE DONE ON SUCH TAPES, 99991000 

Sie eae ee ete Re ew EE EER a a ee 99991100 
S#PATCH NUMBER 169 FOR TSSMCP CONTAINS 4 CARDS, 

PPCPROCESS1#03% 20602855 

IF UNITNO232 THEN CIMROWLCUNITNO*32),632538=0 ELSEX 20606900 

IF UNITNO#23 THEN READERASCFFI##0 ELSEX 20606910 

IF UNITNO#24 THEN READERBCFFI8203% 20606920 


$: BY 0JZ = MSA CENTRAL 
$1 SOFTWARE FLASH 201 


[ERC RSESC EO SSSA CELE SCS SETS CPE SSC SECS ECCS CLS TESS PSSST CALE 


$#PATCH NUMBER 170 FOR TSSMCP CONTAINS 1 CARDS 00000000 
BEGIN IF XLSTSO THEN XLSTtaeMrSPACE ¢XLSTSZtm30)13030(8838910)3 20567005 

$2 DATE 9/17/76 99990000 
$1: By JTC = MSA CENTRAL 99990100 
$! 99990200 
$; THIS PATCH PREVENTS EXTRA EXCEPTION Lists FROM BUILDING YP IN 99990300 
$t CORE WHEN PROCESSING REMOVE OR COPY CARDS WITH MULTIPLE 99990400 
$t EXCEPTION LISTS, 99990500 
SI eee ea eR KEE ee Eee eee eee EHE_OOIIO GOO 
S#PATCH NUMBER 472 FOR TSSMCP CONTAINS 9 CARDS, 00000000 
ADECK © 03 FIRSTHRSEC « 07108100 

$ 07108999 
$ 07109001 
BEGIN LABEL TRYAGAIN; 20289030 

$ 20289330 
Xbe6s MealUees 715003 20289335 

$291 GO To EXTERNAL3 % 35 * SPECIAL INTERRUPT 46011500 

$30! GO To EXTERNAL3 % 36 * DKA READ CHECK 46012000 

$318 GO To EXTERNALS % 37 = OKB READ CHECK 46012500 

$t BY DUZ = MSC DETROIT 99990000 
$! DATE 11/29/76 99990100 
$i THIS PATCH ese 99990200 
$t 1) REMOVES SOME REDUNDANT CODE FROM PROCEQURE "cOMmM23"3 99990300 
$1 2) REMOVES UNNECESSARY LABEL IN PROCEDURE “PRINTTHECOVER"S 99990400 
$s 3) PREVENTS SYSTEM HANG IN "DO UNTIL FALSE” LOOP WHEN DISK 99990500 
$1 READ CHECK IS pnETECTEDe THIS WAS ORIGINALLY INTRODUCED IN 99990600 
$1 TEMPORARY PATCH #2022 MARK XIV SYSTEM RELEASE. 99990700 
SEA eae ee ER ee RHETT HERE E Na Eee eR III_ONS 
S$#PATCH NUMBER 1473 FOR TSSMCP CONTAINS 2 CARDS, 00000000 
*B8BS 700 TS =eMecP MaR K XVJI.0,172 05/11/77 00001000 
"To" 00005040 

$! BY DUZ = MSC DETROIT 99990000 
$! DATE O3/11/77 99990100 
$$ THIS PATCH UPDATES THE MARK LEVELS IN THE SYMBOL FILE, 99990200 
SUN e eee H eee ea ee ee eke a ee tik 6499990300 
S#PATCH NUMBER 201 FOR TSSMCP CONTAINS 005 CARDS 00000000 
IF Ua30 THEN 04129100 

BEGIN MEC@1534C38sR3 04129200 
OCIOFINISHCR)3 04129300 

ENDS 04129400 

IF CESmCMCO1594C33eMR).£2687)94CV9E9T, £5289) NEQ O THEN 04130000 

$t THIS CHANGE CAUSES THE RESULT DESCRIPTOR OF EACH I/0 TO BE 00000002 
$1 STORED INTO MC@1534I1/0 CHANNEL NUMBER), 00000002 
$3 00000002 
$i:By cr 00000002 
$:TR egat 00000002 
$IDATE 3/6/73 00000002 


LER SCRRESSSES SSR POSER REESE CEOS OSE CRRA E RECESSES ERE RRR ESSER REE REESE ERE RRR REREAD SE EE 


S#PATCH NUMBER 202 FOR TSSMCPaxV2 CONTAINS 25 CARDS 
»MEMTOG =» TOGLE.C4381)#»MEMTOGMASK e208 
IF CMEMCWAITSTOREL,0)3,0CFJ#0 THEN 


00080500 
00093110 


IF NoT MEMTOG THEN SLEEPCCTOGLE)sMEMTOGMASK ELSE ELSE00093120 


DEF NE STOREDY(STOREDY,e¢STORENY2)@ FF CMEMCSTOREDY1,01) ,(CFI#0 THEN 


MEMTOGtsSTOREDY2 ELSE 
MEMESTORENY 420] 004781)*=STOREDY 243 
STOREDY(0,0)3 
STOREDY (0,193 
STOREDY(020)53 
STOREDYCO*1L)3 
BEGIN WAITSTORECO)3 STOREDY(0,0)3 
STOREDY (O04 )3 
WAITSTORECPIMIX)3 STOREDYC(CPIMIX20)3 
STOREDYCPIMIXe1); 
WAITSTORECPIMIX)S STOREDYCPIMI x2093 
STOREDYCP1M{X01)3 % FRee MeMORY TO ALLOW "ARTN” TO Be BROUGHT IN 
WAITSTORECMIX)S STOREDYCMIX,0)3 
STOREDYCMIXs 193 
STOREDYC020)3 
STOREDY(0O04)3 
AGAINS WAITSTORECMIX)3 STORED¥C(MIXs0)3 
STOREDYCMYX01)93 
WAITSTORECPIMIXIS STOREDYCPIMIX20)3 
STOREDyCPIMIXs123 
MEMTOG!343 
$iTHIS PATCH ALLOWS CEL, ZERO tO BE MONITORED FoR INVALID WRITES 
SICAFTER INITIALIZE). IN QROER TO ENABLE THIS» A NEW TOGLE IS 
$! USED » MEMTOGs RATHER THAN MLOJ,CiI7#1)5 TO INTERLOCK MEMORY 
$1 BELOW THE FENCE, WITH THIS PATCH REFERENCE 10 SYOREDY 
StMUST BE MADE AS"STORENYCMIXsTOG)3%» WHERE MIX IS THE MIX INDEX 
S'tOF THE PROCESS AND Tog IS EITHER O OR ie 
$! 
$3By AMS 
$!TR 4790 
SIDATE 346/73 


00093400 
00093410 
00093420 
02396130 
02396500 
02434490 
02434530 
09617000 
09624000 
18841490 
18843500 
18843800 
18845000 
20119300 
20120300 
21032000 
21093000 
24309000 
24313000 
29544000 
29548000 
44114100 
90000004 
90000005 
90000010 
90000015 
990000020 
90000025 
00000002 
00000002 
00000002 
00000002 


PEPE SCESESESSSEP ESAT ERETESES EASE ASE EASE REPRESS EE SER SACRE RRR RR AE ES 


S#ParcH NUMBER 203 FOR TSSMcPexV2 CONTAINS 29 caRDS 
BOOLEAN OKSEGZEROWRITES 
te (PC rObESC.£3!5) 
$ SET OMIT = DKBNODFX 
sDUP) = @14 OR PCXCH 
$ POP OMIT 
? = @46) AND 
NOT TODES¢cef24%1] AND 
COCPCMEIODESC,fCCFIJ)»sDUP) EQV OSNOT 0) OR 
CCP CXCH) EQv 32) "NOT 0)) AND 
NOT OKSEGZERQWRITE THEN 
BYBYC’SEGMENT ZERO OVERWRITE es 23)3 
OKSEGZFROWRITE:@TRUES 
OKSEGZEROWRITES SF ALSE3 
OKSEGZEROWRITE:=TRUES 
OKSEGZEROWRITEs8FALSES 
OKSEGZEROWRITE@TRUES 
OKSEGZEROWRITESSFALSE3 
OKSEGZEROWRITESSTRUES 


00422100 
04004410 
04004119 
04004120 
04004121 
04004130 
04004140 
04004450 
04004155 
04004160 
04004170 
05665399 
05665401 
06059659 
06059661 
09645999 
09656001 
09682609 


OKSEGZFROWRITEs =F ALSE3 
OKSEGZEROWRITEs#TRUE3 
OKSEGZFROWRITE:aFALSE3 
OKSEGZFROWRITE 2 TRUES 
OKSEGZFROWRITE:=FALSES 
NKSEGZEROWRITEs*TRYES 
OKSEGZEROWRITE SF ALSE3 
OKSEGZEROWRITE: sTRUES 
OKSEGZFROWRITEs =F AL SE3 
OKSEGZFROWRITE:2TRUES 
OKSEGZEROWRITEs=FALSE3 
$iTHIS CHANGE 1S PROVIDED FOR nEBUGGING PURPOSES AND CAUSES THE MCP 
$tTO HANG IN A "DO UNTIL FALSE* LOOP WHENEVER OISK SEGMENT ZERO I5§ 
StABOUT TO BE UNEXPECTEDLY VERWRITTENe 
$I 
$'tBY JCF 
$:TR 1766 
StDATE 3/6/73 


09682611 
40249400 
40262100 
42600919 
42600924 
42713949 
42713954 
42730999 
42731001 
44411399 
44411401 
44419424 
44419623 
44419425 
00000002 
00000002 
00000002 
00000002 


(LURES ECE CAS OEE CORE ES ERS PELAESCCSIT CCE CEOS OSES CE OEP ESAS ESSEC REECE REESE CECE SESE ER ERAS SY 


S#PATCH NUMBER 301 FOR TSSMCPexV2 CONTAINS 3 CAROS 

IF MnDeE 12 (MADEs0) AND BLEN 2 20 THEN 

SAVEWORN t# SAVEWORD OR TWOCUds 

CNTCTL ts nIREC ta 03 
$t THIS PATCH ALLOWS THE READING OF PURE BINARY CARD INPUTs 
$t IF THE FILE IS peclAREp AS ALPHA WITH A BUFFER LENGTH 
$! OF 20 WORDS. ALSO THE CARD READER wILL BE MARKED SAVED 
$; WHEN THE PROGRAM CLOSES HE FILE, CARE SHOULD BE TAKEN 
$: WHEN USING THIS FEATURE sINCE A "QEND* CARD WILL NOT 
$3 BE SEEN BY THE SYSTEM, I7 I§ THE PROGRAMS RESPONCIBILITY 
$! To DETECT WHEN THE ENO OF THE FILE HAS OCCURRED. 


$1ByY JCF 
StDATE 3/6/73 


38107610 
38107620 
38107700 
90000015 
90000020 
90000025 


00000002 


ERTS TRACT TEAL TLE LPL LITE LESLIE ELI TLL TLE iriiiiirt: 


S#PATCH NUMBER 302 FOR TSSMCP CONTAINS 049 CARDS 
REAL RESULT & #43 
BOOLEAN ZEROTIMEOUTS 
ZEROTIMEOUTEPN,£392%433 
N.C32819!a03 
YF ZEROTIMEOUT THEN 
BEGIN 
RESuLTs@s23 
STREAM(DIeA,CCFI)3 
DSt38 LIT "TIMES "3 
GO TO RETURN 
END} 
STREAMCTamCC"END")82¢12)972424286)28A2)3 
BEGIN SItmaos DrtelLoc Ty OreaOl +4; 
IF & sC NEQ Bc THEN TALLY#313 
TIBTALLY3 
END3 
RESULTS=POL?SH3 
GO TO RETURN? 
IF PAPERTAPE THEN 
BEGIN STREAMCTs= ("END ye SOURCE 93 
BEGIN SIe=#lLOc T3 DI#sSOURCE3 
S1:281453 presOle 13 


00000000 
03292300 
03296250 
03296300 
03296350 
03297410 
03297415 
03297420 
03297425 
03297430 
03297435 
03297440 
03307100 
03307110 
03307120 
03307130 
03307440 
03307450 
03317500 
03624400 
03624401 
03624402 
03624403 


IF 3 ScsDe THEN 03624404 
BEGIN nIitapl@3) DSt=3 LIT " "3 ENDS 03624405 
ENDS 03624406 
FLAGS!=43 03624407 
END ELSE 03624408 
BEGIN STREAMCT32("FND) 8 SOURCE 23 03624410 
BEGIN SIssSouRces ol#sLoc T3 03624420 
STezSle13 O12201 +53 03624430 
IF 3 Se NEQ DC THEN TALLYt«213 03624440 
TtaTALLY3 03624450 
END3 03624460 
IF PQLISH THEN Go TO CE3 03624470 
ENDS 03624480 
BEGIN STREAMCSOURCEs Kt Ti=PAPERTAPE) 3 03624600 
IF SCMARK THEN 03625300 
BEGIN DI:2Loc K3 OSta3 LIT "END"; 03625310 
StswSye13 OltsD1933 03625320 
IF 3 $csO0C THEN 03625330 
BEGIN TALLY#s23 Kit=aSI3 O%sk3 03625331 
TCDI#=Ol=33 03625332 
DS3a3a LIT ™ )3 03625333 
END ELSE TALLY##13 03625334 
ENDS 03625340 
Rt=POLISHs 03625600 
FLAGSt*IF R THEN 4 ELSE 03625610 
IF (€(RaB) AND PAPERTAPE) THEN & ELSE 03625620 
IF €CRa2) AND FLAGS) THEN 4 ELSE FLAGS3 03625630 
$1 THIS PATCH IMPLEMENTS THF EnF BRANCH IF "QEND” Is TYPED 00000002 
$1 TNO A REMOTE JOB AS INPUT, 00000002 
$3 gt $0 THE PaRITY LABEL WILL BE TAKEN IF DaTa IS NOT PRESENT aND a ZEROQQ0000002 
$! TIME Our WAS SPECIFIFO. 00000002 
st 00000002 
$IBY JCF 00000002 
SITR woes 00000002 
StDATE 3/6/73 00000002 
$# PATCH NUMBER 401 FOR YTSSmCP.XVIe00 CONTAINS o1 CARDS.FIVE MINUTE SLEEP LIMIT. 
TIMELIMITMAX © 3600 x S + 18000 3 $«03 X4014"GRK 22013130 
$31 
$: THIS PATCH INCREASES THe MAXIMUM SLEEP TIME ABOVE THE FENCE FROM 
$3 145 SECONDS TO FIVE MINUTES PLUS ONE MINUTE FOR EACH ACTIVE JOB, 
$1 FAR TOO MANY JOBS GET KILLED AT 15 SECS THAN IS REASONABLE, 
$1 
$1 G.ReKENNEDY 25FEBTG, BROCK U, PATCH 401 


SUR eT REE RAMA RARE A KEK ENE RE RE REHEAT E RE RHE Te 


Sz 


PATCH NUMBER 4093 FOR TSSMCP.XVIe00 CONTAINS ol CARDS,PREVENT FLAG BITS ON CM, 
STREAM(BASE)3 BEGIN 3¢DS*_IT"O"MS DLeDre793 ENDS %403"GRK 09680450 


THIS PATCH PREVENTS SYSTEM HANGS CAUSED BY GARBAGE IN SEGMENT ZERO 
In PROCEDURE CHANGEMCP. 

THE CURRENT MCP NAMECS) AND BASE DISK ADDRESS MAY HAVE THE FLAG BIT 
ON CIT HAPPENED AT LEASE ONCE)» 


GeR KENNEDY 17FEB76, BROCK U, PATCH 403 


SU HE EET MEEK EEE EKER TAREE RHR REE EERE 


$# PATCH NUMBER 407 FOR TSSMCP_XVI,00 CONTAINS 01 CARDS CONTROLCARD SCREWUP, GRK 


$: 


PC DIRECTORY SEARCHCNABSCCMM[0})» IF CMMCO}<0 THEN nDISK w ELSE 20606865 


$t 
$3 
$1 
$3 
$1 
$s 
$! 
$1 


R**% 


gt 


THIS PATCH FIXES A PROBLEM IN CONTROLCARD WHICH CAUSED THE MCP SAVE 
CORE TO GRANUALLY INCREASE, THE PROBLEM WAS WITH CONTROL CARD 
FRRORS ON COMPILE CARDS. aT “INCSC"™ THERE WAS A CALL ON 
DIRECTORYSEARCH WITH #CMMCo} SO AS TO NOT RETURN THE FILE HEADERe 
BUT = COMPILERS HAVE CMM[0}] NEGATIVEs SO yee 

RECEIVED FROM OREXEL UNIVERSITY BY PHONE ON 16JUL75, 


GeR KENNEDY 100CT75,. BROCK U,. PATCH 407 

SIR III II IOI II IDIIISIE I ISIDISIG OIG UIDIG IGG OIDDI titan tot int 
$# PaTCH NUMBER 410 FOR TSSMCP,.XVI2e00 CONTAINS 02 CaRDS,LET "SD" OR "CL* WORK, 
JAREMIxs6) -Cittlece¢yyPEs9) OR CrYPE#19))3 %0Se8s5029,CL 219 %410 
JAREMIXs 6) eCisLlecCTYPE29) OR (CTYPE#19))3 &SOSeeeSpege Ch aig x410 


THIS PATCH TO KEYINO SHOULD ALLOW "SD" OR "CL" TO SAVE PSEUDO#DECKS, 
WE WILL SETUP THE “SAVE=THE@DECK” BIT BEFORE CALLING TERMINATE» AS 
In THE OCMCP,. 


GeR KENNEDY 13JUL76. BROCK Us. PATCH 410 


CWRSTET TEAL TAA TESA CECI PETIT TATE e PTC Pee eee 
$# PATCH NUMBER 504 FOR TSSMCP.xXVI.00 CONTAINS 22 CARDS.EQJ JOg STATISTICSeGRK, 


REAL CPUIOs+143 %504"GRK 
P¢«O)3 ¥ZERO OUT CPUIO %504=GRK 
CPUINSGETSPACEC102001 2423 %504"GRK 
MECPUIO+2}¢VECTORIOJ3 %JOB PREFIx %504*GRK 
MECPULOF31¢VECTOREILI) ZJoB SUFFIX %504=GRK 
MECPUIOS& 373 %JOB MIX INDEX %504eGRK 


MECPULOSS eC C SLL TeNEXTMOM)+30)DIV 603 XCPU TIME %504"GRK 


MECPUIOS6 eC CSCA2I4¢VECTOROGI+IOTIMELII)D+30 DIV 603 %2504"GRK 
MECPUTOF7V©SC3I*CLCCII*SCLIIXCHUNKZIZE*CHUNKZIZES 2504 
STREAMCIscPUIN 3 %*504"GRK 
BEGIN DSeSLIT” FOR "3 SIeCPUIO3 SIeSI4473 ¥504@GRK 
OS*7CHR$ OS*LIT*"/"3 SreSiels OSe7CHR *504°GRK 
OSe_IT*e"3 DS*2DECs TeDIs OleDI "23 %504eGRK 
OSeFILL; OLels OSeSLIT*SPSTe"; DOS*SDEC3 %504"GRK 
lepots olepr*53 OS*4FILLI Olers %504GRK 
DS*SLIT*sIOT#"S OSeSPECS ITeDIs OLeDI"5s *%504"GRK 
DSeaFILLs Olels DS*6LIT*sCORER"S *504=GRK 
DS*SDEC3 reDrs DreDre53 OSe4FILL3 %504eGRK 
Nlers oSe_rtre3 *504@GRK 
END STREAM3 %£504eGRK 
SPOUTERCCPUIO,UNITNOs 64 03 x504"GRK 
If UNITNO#O THEN %504"GRK 


THIS PATCH PROVIDES THE EQU JOB STATISTICS MESSAGE SIMILAR TO 
THE DCMCP MESSAGEe IN AODDITTION» MAXIMUM CORE USAGE IS PROVIDED 


SPOUTER DOCUMENTATION SPOUTER (MESSAGE sUNITNO* TYPE) 

EXSSVsassesesrekSsazscees EMRBAASSSLSILIestT ete SRsersese ss 

DEFINES : SPOUTCMESSAGF) w= SPOUTERCMESSAGEs 001) 

aemaramam SPOUTITCMESSAGEs TYPE) = SPOUTERC MESSAGE so» TYPE) 

NOTES 8 =@CONDITION@= MESSAGE DISPATCHED COMMENTS 

awe Om UNI TNO TYPE 5P0 PACKET LOG SU FOP OR ROME Rens a 
N/A 0 N Y Y 
N/A 64 ON Y N FOR PACKET PAGE ONLY 
N/A NEG, N Y N 


16212100 
16216000 


14351306 
14355060 
14413020 
1441 3030 
14413040 
14443050 
14413060 
14413070 
14413080 
14430031 
14430032 
14430033 
14430034 
14430035 
14430036 
14430037 
14430038 
14430039 
44430040 
14430044 
14430042 
14430043 


$3 N/A TRUE Y Y Y 


$3 GR KENNEDY LOJUN76.4 BROCK Ue PATCH 504 
$! THyS PATCH 1S NEEDED BY PATCH 509 
LPR PSEC ROR CECE POSES ECC TOE SSPE CSCO SECS EASE RSE CCRC EERE EEE REESE ES SS 
$# PATCH 508 FOR TSSMCP.XV.3 CONTAINS 4 CARDS, PREVENT FILEHOLD FOR "CH 
$1 THIS REMOVES A POTENTIAL INVALID LINK PROBLEM IN PROCEDURE LIBCC WHIC 
$: WOULD OCCUR IF A FILE WERE REMOVED WHILE IN THE PROCESS OF BEING 
$t A) REMOVED OR B) CHANGED. 
$1 THIS ALSO PREVENTS A FILE HOLO SITUATION FROM OCCURRING WHEN A CHANGE 
$: COMMAND IS ENTERED FROM A REMOTE TERMINAL s 
$1 NATAL U, PATCH 508 

IF 7 GEQ 64 THEN 

TeNIRECTORYSEARCHCCMMECOJ>CMMCLISCPCUNITNOsDUP) #25 OR 
P(XCH)930)01947481)94)3 END; 

IF T GEQ 64 THEN 

(UR ERSESORCR ESSEC RCSL OSI PC CSP EEO PERSO REESE REESE REPRESSES EERE RE ERE SERRE REE ES 


$# PATCH NUMBER 509 FOR TSSMCP,XVI,0Q0 CONTAINS 17 CARDS,PRNPBT/LOCNTRL B 


IF P THEN MAKELOGC( MESSAGE ,ABSC TYPE) 93 ¥509=GRK 
ENDS IF TYPE LSS 9 THEN TYPES=643 %509GRK 
SPOUTITCLOGINF Os %509"GRK 
64)3 ¥509°GRK 
SPOUTITCVECTOR INX O» %509=GRK 


Ie NOy ¢ ¢MCCPUIO+3) EQV "DISK "SNOT O ANDX509 
( CMCCPUIO42) FOV "PRNPBT ")sNOT O ORS509 
CMECPUIOS2) EQy "LDCNTRL™)aNOT 0292509 

THEN ecLyNK OR CANDYMESS) AND EQUMESS %509#GRK 


AND CNOT JARO),C2%1) OR EQUK) %509 eGRK 
ELSE -E£0UK)3 %509GRK 
SPOUTERCT#UNITNO, %509"GRK 


IF NOT ¢€ CJARCMYXe1) EQV "DISK ")sNOT o AND %509"GRK 
€ CUAREMIX00] EQV "PRNPRT ")3N07T 0 OR %509"GRK 


CJAREMIX20] EQV "LOCNTRL™)aNOT 0) 2 %509"GRK 
THEN CCCNOT §£03).C2t1) OR CANDYMESS) %509"GRK 
AND ROJMESS AND 1: OR BOJK) ELSE *BOYK)3 ¥509"GRK 


$: THIS PATCH SUPPRESSES ALL "BOY" AND “EQY" SPO MESSAGES FOR 

$1 “PRNPBT/DISK" AND "LOCNTRL/DOISK".s THIS SHOULD HELP ELIMINATE 

$t SPO "CLUTTER", 

$: NOTE THAT SPOUTER HaS BEEN MODIFIED TO LOG NEGATIVE MESSAGE TYPES 
$: BUT NOT SPOUT THEM ¢SIMILaR TO TYPE 64 = BUT TYPE IS RETAINED). 


$1 G,R,KENNEDY 3iMAY76, BROCK U, PATCH 509 
$: THIS PATCH USES VARIABLE €PUIO WHICH IS DEFINED IN PATCH 504 

$: CORRECTED TO INCLUDE BOvMESS BY OR» UCSC 

$: SEE ALSQ DREXEL U- PATCH 716 

PUR SESE CECE E SST CCPC ST PCS EP CST CCC SC CSS CSE PEE Pe EEC SESE CE PSE ee ES 
$# PaTCH 510 FOR TSSMCP(XV.3 CONTAINS 2 CARDSe INITIALIZE TYPED PROCEOU 
$3 THIS PATCH CORRECTS AN ERROR INTRODUCED BY PATCH NUMBER 24 TO MCP,XV 
$1 WHERE THE VARIABLE PROCVAL WAS NOT INITIALIZED IN THe PROCEDURES 

$: "ACESBIT™ AND "CCCOMPILE%. WHEN RETURNING FROM THE PROCEDURES THE 

$1 VALUE OF THE TYPED PROCENURES WAS TAKEN FROM THE LAST VALUE OF 

$: PROCVAL. THIS €AUSED ODD ERRORS. EeGe THE CARDS: 

$1 @ LOAD FROM yxYTAPE ANY/NAME 

$t @ COMPILE PROG/NAME FORTRAN 

$1 WOULD RESULT IN "CONTROL CARD ERROR AT FORTRAN". THE TYPED 

$t PROCEDURES ARE NOW INITIALIZED. NOTE&= ACESBIT NOW CCSET 


ANGE" 
H 


20574917 
20577826 
20577827 
20577828 


Ou/EON 

02134000 
02134005 
12704000 
12704100 
14430000 
14430002 
14430004 
14430006 
14430008 
14430010 
14430042 
20104200 
20104300 
201046310 
20104320 
20104330 
20104340 


RES 


$1 NATAL U, PATCH 510 
CCCOMPILE+*O; 20584340 
CCSET+¢0; 20711100 
SRP EP SERRE SER EP OSE SESE SSPE CSE TESCO RES SSCC SEEPS CEPOL APESESCESAECASICEST TELLS 
$# PATCH 511 FOR TSSMCP.XV.3 CONTAINS 4 CARDS, "PC" WITH 65 JOBS ON DISK 
$: THIS IS TO FIX THE CASE wHERE THERE ARE 65 JOBS ON DISK AND A "PC" Is 
$: DONE. PRIOR TO THIS THE MESSAGE WOULD COME OUT aSt= 65 JOBs #NNNN 
$1! WHERE "NNNN® WAS THE NUMBER OF THE LAST DECK ON DISK, 
$1 NATAL U. PATCH 5141 


SI#LOC 1413 07295100 

IF SC#"O" THEN GO TO AQ 07295102 

ELSE S1¢SI4i3 07295404 

AQt BEGIN DSe3 LIT "Ss "3 07295160 


Bl ee He EEE RENTER ERR EEN EET EEE RERE 
$# PATCH 512 FOR TSSMCP,XV.3 CONTAINS 7 CARDS, ERROR PROGRAM PARAM CARDS 
$1 THIS PATCH REARRANGES SOME CODING IN PROCEDURE PPC FOR CLARITY ANDO 

$: GENERATES A CONTROL CARD ERROR FOR IDENTIFIERS ON PROGRAM PARAMETER 

$? CARDS WHICH ARE UNDEFINED, 

$t NATAL U, PATCH 512 


ELSE IF TYPESCOREV THEN 20504500 
BEGIN XC20] ¢ TPNO DIV 643 20505000 
DO UNTIL ¢IOD * SCAN) ®MAXV OR IODsPERIO3 20507000 
IF YOp*MAxV THEN PCEXC20]]210R) ELSE GO TO DOWNs 20507100 
END 20507200 
ELSE yF TYPE2PRIOR AND TYPESSAVEV THEN 20507300 
XCIB+TYPE@PRIQRI¢TPNO ELSE GO TO ERRORS 20507400 


SU ae EN KR ARERR THERE EKER EEN EHS 
$# PATCH 517 FoR TSSmCP CONTAINS 3 CARDS. QVER LAY DISK SPACE USED UP 
$1: WHEN A PROGRAM Was EXCEEDED Irs OVERLAY DISK SPACEs THIS PATCH WILL 
$! CAUSE THE MCP TO ISSUE THE MESSAGE “ARRAY OLAY SPACE USED UP" WHEN 

$3 DS@*ING THE PROGRAM» INSTEAD OF "INVALID ARRAY SIZE ION", THE LATTER 
$! MeSSAGE IS MISLEADING. 

$! By STEVE KELLEys, REQUESTED By NATAL Us, MAY, 1974 

$t NATAL U, PATCH 547 


$1 MODIFIED FOR TSSMCP BY DRe CSC JANe 179 1977 
TERMINATE CMIxX& OOLCTFI)3 06411010 
"BARRAY “s "BOLAY 5", x 99 44445700 
“BPACE U"s "6SED Ups x 41445800 


SRECSESAEE RESETS SAE SELES S LET ESTP CASE SACO SCART S LSE LAEPLALAE TELE LAL EI 

$# PATCH NUMBER 519 FOR -SSMCP.xVI+.00 CONTAINS O1 CARODS,ENABLE "FILE IN YSE" OK, 
BEGIN TeVWYSVOKE362429678CVIFXAL(3811263084236)3 2519"GRK 18025000 

$1 

$t THYS PATCH ENABLES *#FIL IN USE" SITUATIONS TO BE "OKWED*", 

$: PREVIOUSLY CEXCEPT FOR LIBMAIN) THE ONLY ALTERNATIVE WAS "DS", 

$3 

$! G,RKENNEDY 3O0JAN76, BROCK U, PATCH 519 

$1 SEE ALSO UCSC PATCH 915 

PR SEC ECR SESS ESS CESSES POSSE CSL TOCA ALE SSE ESE PELIEOCBRSSLICCLLOCSCAICCALALAEALL LALA 

$# PATCH 521 FOR TSSMCP.xV.3 CONTAINS 17 CARDS, Fly PROCEQURE *"CCSET" 

$! THIS PATCH FIXES THE MESS THAT PROCEDURE CCSET Is IN, 

$3 THE PROBLEMS FIXED ARE? 

$1 A) FILE HEADERS OF ALL FILES REFERENCED BY THIS PROCEDURE ARE LEFT 

$1 _ IN CORE, 

$: B) DIRECTORY WAS BEING UNLOCKED IN MANY CASES WHEN IT WAS NOT LOCKED 

$t BY THIS PROCEDURE: - 

$$ C) DISK HEADER WAS BEING WRITTEN BACK UNALTERED AT LINE 20739000 

$3 INSTEAD OF A FORGETSPACE ON THE HEADER, 


$t NATAL Ue. PATCH S21 


BEGIN Te#23 GO TO 1.13 END3 20730000 

BEGIN FORGETSPACECT)3 Te13 GO SKIP; ENDS 20739000 

$ VOIDT 20739100 
$ VOIOT 20739200 
FLS€ BEGIN 20769000 

$ SET OMIT = SWAREDISK 20769100 
UNLOCKDIRECTORY3 20769200 

$ POP OMIT 20769300 
LBMESSCCMME2) sCMMEC 3] 9 "*C114TOG) s4leOseSPOQOUTUNIT#1 23 20769400 

ENDS 20769500 

FORGETSPACECT)3 20769600 

ELSE BEGIN 20771000 

$ SET OMIT = SHAREDISK 20771010 
UNLOCKDIRECTORY: 20771020 

$ POP OMIT 20771030 
END3 20772050 

$ VOIDT 207723014 20772100 


CER ECESLESLAESLASLECASICEEICEACEOLAIS COC CCOAS ERS EE ECR CECE CCS ECE RECESSES 
$# PATCH 523 FOR TSSMCP.XV.3 CONTAINS 1 CARD. RESERVE OISkK REMOVED” SPO ONLY 
$: THIS PaTCH MaKES THE “** RESERVE DISK REMOVED” MESSAGE GO TO THE SPO 
$1 ONLY. PREVIOUSLY IT ALSO WENT TO THE MESSAGE PAGE FOR THE JOB. 
$! NATAL U, PATCH 523 
SPOUTER(Z»25» (NOT LIBMSG) AND 193 06353660 
PRRESERSSSERESE SEES RESO OCSESC ESSER SSE EEC ESSERE CSE EEC REE RSE REARS ES ESE SE 
$# PATCH 527 FoR TSSmCP CANTAINS 3 CARDS, FIXES TO “SET* AND “RESET” 
$3: THIS WILL ALLOW ONE TO ENTER A “SET* OR *RESET® CONTROL CARD FROM 
$: THE SPO AFTER A CONTROL CARD ERROR ON THE LAST INFORMATION ENTERED 
$: FROM THE SPO, PRIOR TO THIse EVEN THOUGH THE CORRECT INFORMATION WAS 
$s ENTERED FOR A SET OR RESET CONTROL CARD» THE FIRST WORD WOULD NOT BE 
$: RECOGNIZED, RESULTING IN A FURTHER CONTROL CARD ERROR. 
$¢ THIS WILL ALSO FIX THE CaSE WHERE A SET OR RESET CONTROL CARD 
$: FOLLOWED AN EXECUTE CARD, THE SET OR RESET WAS BEING TAKEN AS A 
$1 PROGRAM PARAMETER CARD, 
$! NATAL U, PATCH 327 


$: MODIFIED FOR TSSMCP BY DRe UCSC JANe 17s 1977 
CONTROL A? IF €7 < FILEV OR -t > cOBOL) AND accuUMCO] # CMPLR THEN 20604300 
IF T GE@ UNLOCKV AND T LEQ RESETV THEN GO TO FINIS 20604350 
Ip C(T2PACKET) AND C(TSRESETV) AND CT#RUNV) THEN 20608078 


RECEP SR CSASE STORE PORE PSEC CEE RE RPE EERE APACER EELS EECA SERRE EA SE 
$# PATCH 528 FOR TSSMCP CONTAINS 1 CARD, TRY OISk SPACE AFTER RESERVES REMQVE 
$$ THIS CAUSES ANOTHER ATTEMPT TO GET DISK SPACE AFTER RESERVE DISK IS 
$; REMOVED INSTEAD OF sPOUTING NO USER DISK AND FORCING THE OPERATOR TO 
$: DO AN "OK" FOR THE JOB. 
$1 NATAL U, PATCH 528 
$1 MODIFIED FOR TSSmCP BY DR» UCSC JAN, 175 1977 
FORGETSPACECBUFF)S PCXIT)S 06353675 
PEEPS EPROP ERPSESE EP SEEPS LOSES ESSE ESE SE SEE PEE Te EeePC E EERE SEES 
$# PATCH 534 FOR TSSMCP CONTAINS 3 CARDSe FIX *XT"* &2 "CT" FOR wen & "e#<EMPTY> 
$: THIS PATCH CORRECTS PROCENURE “TIMERELAXER™ SO THAT THE INPUT 
$: COMMANDS "XT" AND “cr™® WORK cCORRECTLY« PREVIOUSLY IF THE CHANGES TO 
$1 THE TIME ESTIMATES WERE OF THE FORM *eN THEN AN INV KBD RESULTED, 
$! THIS WAS BECAUSE AFTFR FINDING THE * » SI WAS NOT INCREMENTED TO SKIP 
$1 MVER IT, 
$t THIS ALSO FIXES THE CASE WHERE THE IOT IS OF THE FORM "»<EMPTY>", 
$1 PREVIQUSLY» THIS WOULD ALSO HAVE GIVEN AN "INV KBD". 
$t NATAL U, PATCH 534 


IF Scat * THEN GO L13 ENDS 08739000 
IF Scs"«e" THEN BEGIN SIe#SI413 GO L53 ENDS 08739500 
IF Scstte™ THEN BEGIN TALLYe13 GO EXITS ENDS 08749500 


SQ wea KH MR EK ERE E Ra HaHEKEEERAMEHEEEKAKEKEHHES 

$# PATCH 535 FOR TSSMCP.XV.3 CONTAINS 23 CARDS. FIX PROCEDURE CHANGEOPTION 
$1 THIS PATCH FIXES SOME BAD CODING IN PROCEOURE CHANGEQPTION WHERE THE 

$: SCAN MAY GO PAST THE END OF THE INPUT BUFFER. IT IS A RE*"WRITE OF 

$: THE SCAN PORTION, IT ALSO MAKES THE USE OF THE WORD “USE” OR “YU” 

$1 OPTIONAL IN THE §0 OR RO WITH THE OPTION MNEMONIC CAS WITH THE OPTION 

$t NUMBER), 

$! NATAL U. PATCH 535 


LO: SyreBUFF3 08634000 
Lit IF Sts" " THEN BrGIN SI*SI+13 Go TO Lis ENDS 08635000 
le Sc<"0" THEN 08636000 

IF Sc#%e" THEN 08637000 
BEGIN TALLY*O3 TeTALLYS DIeLoc T3 08638000 

BCIF Sta" " THEN JUMP OUT ELSE 08639000 

IF SCave" THEN JUMP OUT ELSE 08640000 

IF Sc2"@" THEN JUMP OUT ELSE DS*CHR)3 08641000 

BUFFeSI3 SIe#OPTER3 08642000 

63(DreLOc Ts 08643000 

Ir 8 SC2NC THEN JUMP OUT TO Le ELSE 08644000 

Ir SCa"e" THEN JUMP OUT TO LO ELSE TALLY«*TALLY+1 2308645000 

GO To L33 08646000 

L2t IF Sestten THEN GO TO LO; 08647000 
END E&LSE 08648000 

L3? TALLY*#48 ELSE 08649000 
BEGIn DIle#LOc T3 SleSI+13 08650000 

IF Se<"0" THEN BEGIN SleSl@413 OSe*1 OcTs END 08651000 

ELSE BEGIN SleSIe13 DSe2 OCT ENDS 08652000 

TALLY#473 TCTALLY*TALLY+463)3 08653000 

ENDS * 08654000 

TeTALLYS SI*LOC T3 DIeR3 OSewOS3 08655000 

$ VOTOT 08656000 


\ FB k kdl RRetellekalelel Deleked Relea Bohalek Rela Laheiicialeheiatelaheicheh dekehah Balchel Aehcheh Rehelhtehaiehek kelatehbelstehe 
$# PATCH 538 FOR TSSMCP.XVe3 ConTAINS 2 CARDS. FIX TIMING PROBLEM WITH PURGE 
$1 THIS PATCH CORRECTS A TIMING PROBLEM WITH A PROGRAMMATIC PURGE OF A 
$t TAPE FILE. HE PURGE IS HANDLED BY AN INDEPENDENT RUNNER WHICH HAS 
$3: TO WAIT UNTIL THE TAPE HaS REWOUND. IF A PROGRAM CLOSES FILE "A /B" 
$: WITH PURGE AND THEN TRIES TO OPEN FILE “A/B"s IF THE PURGE HAS NOT 
$$ OCCURREDs IT MAY TRY TO GRAB THAT UNIT (SEE FINOQUTPUT @ 37027000). 
$: THE PRNTABLE STILL CONTAINS THE POINTER TO THE TOP 170 DESCRIPTOR» 
$: THF SPACE For WHICH HAS ALREADY BEEN FORGOTTENs SO THAT IT MAY PICK 
$:; UP GARBAGEs THIS IS FIXED BY SETTING THE MIx INDEX OF THE PROGRAM 
$t ASSIGNED TO THE UNIT To ZERnM IN THE RDCTABLE BEFORE STARTING THE 
$1: INDEPENDENT RUNNER To PURGE THE TAPE. 
$1 NATAL Us. PATCH 538 
BEGIN ROCTABLELUI,(8#6)¢03 38788500 
FORKCPC,PURGEIT)»U,"2212821) END ELSE SETNOTINUSE(Us0)3 38789000 
(PRESET SESS EC RESESEL RASS SISPRESOPSSOS ECA SESSA ASSS LCA PES CE SEPA ESLASLLEALAES ELSES 
$# PATCH 539 FOR TSSMCP,XV.3 CONTAINS 2 CARDS, PURGE OF TAPE AFTER CLLP*¥ 
$3 THIS PATCH CORRECTS THE CLLP*® WHEN PRINTING FROM A BACKUP TAPE WITH A 
$1 W/RINGe THE TAPE IS NOW REWOUND AND PURGED CORRECTLY«e PREVIOUSLY? 
$: THE PURGE DIN NOT TAKE PLACE. PRIOR TO THIS PATCHs PRNPBT/DISK 
$1! RFWOUND THE TAPE AND STARTED AN INDEPENDENT RUNNER CPURGEIT) TO 0O 
$1 THE PURGEe TERMINALMESSAGEA VIA UNHOOQQUE FOUND THE TAPE IN USE BY 
$1 PRNPRT/DISkK FROM RDCTABLFEEI 9.0836) AND SET THE UNIT NOT READY IN 


$$ LABELTABLE (€w@1144). WHEN THE REWIND WAS COMPLETE» STATUS FINDS THE 
$1 TAPE NOT READY AND FORGETS THE PURGE» LEAVING PURGEIT UNLINKED IN 
$1 CORE WAITING ON AN 1/70 COMPLETEe CUNIT SAYS NO 1/0"S BUT IOQQUE SHOWS 
$: I/M*S FOR WHICH THE SPACF HaS NOT BEEN RETURNED), 
$1 NATAL Us. PATCH 539 
BEGIN ROCTABLECUNITI (8361403 12528400 
END 12528600 
Be EEE KEE a EERE EEE KEKE REE REREENKRAAEER HK 
$# PATCH 540 FOR TSSMCP CONTAINS 1 CARD, FIX "ILw FOR w#NO FIL ON DISK~ 
$$ THIS PATCH CORRECTS THE RESULT OF AN “IL" INPUT MESSAGE IN REPLY TO 
$: A “#NO FIL ON DISK" CONDITIQNe PREVIOUSLY» IF AN “ILCD*¥* WAS INPUT? 
$1 A SYSTEM HANG RESULTED. THIS WAS BECAUSE THE TEST WAS FOR AN ACTUAL 
$! UNIT RATHER THAN ALL UNITSe 
$! NATAL Us. PATCH $40 
$: MNDyFIED TO USE MAGIC NUMBER 35» BECAUSE YSSMCP DOES NOT HAVE 
$t PSEUDOMAXT, OBSERVE ON LINE 00277000 OF TSSMCP THAT TINUC35} # DATA 
$+ FOR THE LAST PSEUDO READER. BY ORs UCSC JANe 479 1977 
Ir (SHeT2¢REP,; ¥YCpIMIXIJe( FFI) > 35 THEN *® IL 06463380 
(UR CCEEERSSESESCESSSCOSE PELE OEE SCER ERE EEE RS ERE SPER EERE EER REE ERE L ASE EOS SE 
$# PaTCH 543 FO, TSSMCP.XVI.O CONTAINS 13 CaRDS. FIXES TO NEW LIBMAIN 
$; THIS CORRECTS A NUMBER OF PROBLEMS IN THE NEW LIBMAIN/OISKe 
$t 1, IF MORE THAN ONE F€XCEPTION LIST aPPEaRS WITHIN ONE CONTROL caRDe 
$3 THEN THE SPACE FOr ALL EyCEPT THE LAST IS NOT FORGOTTENs 
$! FrXED AT 20570070 AND 20873350, 
$1: 2. IF THE EXCEPTION , IST CONTAINS MORE THAN 13 FILE NAMES AND THERE 
$1 IS AN AS CLAUSE» THEN A CONTROL CARD ERROR MAY OCCUR EVEN THOUGH 
$3 THERE REALLY IS not OnEe THIS IS BECAUSE THE ORIGINAL FILE NAME 
$1 HAS BEEN OVERWRITTEN RY THE EXCEPTION LISTe FIXED AT 20569930 ETC 
$3 3. FIX TO USE DEFINES RATHER THAN CONSTANTS. 
$t NATAL U, PATCH 543 


If T Ge@ COPYN AND T Le@ LOAD THEN 20566807 
IF 7 GEQ COPYN AND T LE@ LOAD THEN 20566822 
Tre lL 46,2 ¢HOLO3e¢CNSEQUAL D3 20569930 
IF HOLD3 THEN PROGECNTI%2°1 ELSE 20569935 
IF CN GEQ@ JDENT THEN PROGCCNTI3#ACCUMEO) ELSE GO POWIES 20569940 
T1LeCO721L JeHOLD3e CC ON®©SCAN)SEQUAL )3 20569960 
IF HOLD3 THEN PROGECNT+1 J es"1 ELSE 20569965 

FORGETSPACECXLST)3 XLSTisQ3 20570070 
IF CCNeSCAN) SEQUAL THEN IF 71204681) THEN 20570130 
ELSE YF CN GEQ IDENT THEN IF 71.046!1] THEN GO POWYE 20570150 
IF CCNeSCAN) SEQUAL THEN IF T1 THEN 20570190 
ELSE IF CN GEQ IDENT THEN IF Ty THEN Go POWIE 20570240 
IF XLST NE@ 0 THEN BEGIN FORGETSPACECXLST)3 XLSTIBO3 ENDS 20573350 


SA eae EH eee ee EHE HK Ra eae Yee ee a ee 
$# PaTcH 548 FOR TSSMCP.XVI.O CONTAINS 1 CARD. WRONG FIB CHECK IN FINDOUTPUT 
$1 THIS PATCH PREVENTS FINONUTPUT FROM CHECKING ON A NON@EXISTENT FIBe 
$$ THIS SHOWED UP BY USING 

$+ CC COPY »/s FROM A To AZ END 

$: WHERE THE SOURCE TAPE HAD A WRITE RING, LIBMAIN/DISK READ THE 

$3 DIRECTORY CORRECTLY AND THEN TRIED TO FIND THE QUTPUT TAPE, 

$: FYNOQUTPUT THEN FOUND THE TAPE OF CORRECT NAMEs IN USE BY 

$$ LIBMAIN/DISKs WITH A WRITE*RING AND TRIED THE "FIB", 

$: PRNTABLECU],£1521517 WAS ZERQ SO THAT MCMC3945),04191) WAS TESTED, 

$: (M03) CONTAINS THE McP VERSION NUMBER), THE CONTENTS OF THE MEMORY 
$: CELL TESTED COULD BE SUCH As TO SATISFY THE TEST. THUS» LIBMAIN/DISK 
$t THEN WROTE AN OUTPUT LABrelL ON THE SOURCE TAPE AND FINALLY WHEN TRYING 
$1 Tn DO THE NEXT READ, DECIDEnN THE TAPE WAS NOT A LIBRARY TAPE, 


$t THIS WOULD ONLY ocCUR IF THe SOURCE TAPE HAND A NON®@ZERO PRN, 
$t BY RAY BARTHQs NATAL Uy, PATCH 548% MARCH 295 1976 

IF 73,015215140 THEN % DONT USE NONEXISTENT FIB 37027500 
SUR eee ERR ETE ERE EEE Eee ea eek ae kik 


$# PATCH 549 FOR TSSMCP,XVI.0 CONTAINS 5 CARDS. AUTO "OU" FOR "NO SORT MEM" 


STREAMCPIMIXa TERSxR6eASTeSPACE(7) 13 18790600 
BEGIN DSe_ IT *.43 StelOc P1IMIX3 XSPOUT 2%, NOT "#", XGRK9549 18790700 
REPLYCPiMIXI,CCFI] ¢ 33 18791200 
J¢ 1 18791300 
$ VOrDT 18791704 18791400 


$1 THIS PATCH PROVIDES aN AUTOMATICALLY ASSUMED RESPONSE OF "OU" TO THE 
$: "NO SORT MEM" MESSAGEe IN ADDITION» THE PREFIX OF THE MESSAGE 

$1 HAS BEEN ALTeERED TO we" FROM “#"%s TO IDENTIFY THIS MESSAGE AS 

$1 "INFORMATION ONLY" INSTEAD OF A “REQUEST FOR OPERATOR INTERVENTION’? 
$3 GeReKENNEDY 12FEB75. BROCK Use PATCH 549 

$1: MODIFIED BY OR» UCSC, TO BELETE FROM THE SOURCEs THE CODE THAT NEVER 
$3: CAN BE EXECUTED aS A RESULT OF BROCK Us. PATCH 549% JANe 17% 1977 

$: SEE ALSO UCSC DCMCP PATCH 7139 NATAL Us PATCH 7139 DREXEL U, PATCH 751 
[LURE EERE PERE CSC OS REECE OP SCSTC CER RC REESE CE SEER PARSER SEER PERE EE ERSTE EE SE ES 
$# PaTCH 550 FOR TSSMCP,XVI.®9 CONTAINS 3 CARDS. RESTART LOG AFTER INTERRUPT 
$: IF AN EXTERNAL INTERRUPT EeGe IOBUSYs IOCOMPLETEs PRINTERFINISH, 

$: TYMER OCCURS SIMULTANEOUSLY WITH A PROCESSOR DEPENDENT INTERRUPT E,G, 
$1 COMMUNICATEs THEN THE EXTERNAL INTERRUPT WILL BE HANOLED FIRST AND 

$: THE LOGGING STOPPED FOR THE yOBe IF THERE ARE NO INDEPENDENT 

$t RUNNERS WAITING TQ BF STARTED AND THERE IS NOTHING In THE BEDs THE 

$: LOGGING WILL NOY BE RESTARTED FOR THE JOB WHEN ITS INTERRUPT IS 

$t HANDLEDe THIS WaS DISCOVERED WHEN USING THE TIMEC2) FUNCTIONe 

$: BY RAY BARTHOs NATAL Us PATCH 550 APRIL 21 1976 


$ SeT OMIT = NOTCNEWLOGGING) 48100499 
STARTLOGCPIMIX)S 48100500 
$ POP OMIT 48100501 


BSN te eee a a ey EEE EERE RRA EERE ee 
$# PATCH 560 FOR TSSMCP CONTAINS 4 CARDSe SMALLER PBD ROW SIZES 
$3 BROCK U, PATCH 560» NATAL U, PATCH 732 


DEFINE PAGESIZE = 450#3 % PACKET PAGE P8D SIZE 02113091 
150# % SEGMENTS PER ROW 08699150 
OS0# % PHYSICAL RECORDS PER ROwW 08699350 
1000#% PHYSICAL RECORDS PER FILE 08699500 

LWRARSEEE CERISE S ELEC ESE PCLICC ESE CERES ESE E REPRE REESE E REPRE REESE SAS SES ES 
$# PATCH 601 FOR TSSMCP CONTAINS 2 CARDS, FIX PBD NO DISK DS 00000100 
$3 CORRECT CLOSING ACTION FoR PBD/PUD FILES IN BACKCLOSE AFTER 00000200 
$1 A NO USER DISK 0S3 FILE WOULD GET STUCK IN USE, 00000300 
$$ DREXEL Ue PATCH 601 8/10/75 00000400 
$t MODIFIED FOR TSSMCP BY ORe CSC FEBe 4s 1977 00000500 
$t See ALSO OFFICIAL PATCH 155 TO OcMcCP OR 148 TO TSSMCP» AND 00000600 
$3 OREXEL U, PATCH 662 00000700 
END} 38601100 
$ VOIOT 36621500 


CURR TE STEPS LICE CITE LICE TIPE ITT LIC TTT CLT ere eT c eee eee ee! 
$# PATCH 602 For TSSMCP CONTAINS 4 CARDSe BAD INCW 
$: THIS PATCH WILL "SD" A JNB THAT GETS INTERRUPTED AND “ANALYSIS 
$1 SFEMS TO THINK ITS INCW £S IN LOW COREs LIKE MCOJe 
$t I7s HAPPENED A FEW TIMESs KILLING MEMORY CELL ZERO. 
$t DREXEL Use PATCH 602 10/5/75 
$1 MODIFIED FOR TSSMCP ge TO NOTIFY US IF THIS CONDITION EVER ARISES AT 
$1 UCSCs BY DR UCSC FEB. 149 1977 
IF INCWelCF1<@1777 THEN % SOMETHING VERY WRONG 14015200 


BEGIN JARCPIMIXs6] ef isileis & SD BIT 14015210 
FILEMESSC@"SEge TSS"»” PATCH 202020200602)%KLUGE MSG8DS14015220 
END$ 14015240 

PRPC ERSRESESESE PCRS ERE POSE PCE CREE RRERRRREEEEPRCRRC RP SR REAPER RSE REE RAS EE | 
S#PATCH NUMBER 603 FOR TSSMCP CONTAINS 19 CARDSe FIX COPY 11011072 
FORM = 77H#9% SWITCH DCPCCI"FORM™*"SPECT AL” 20240000 
LRANDOM, 20392890 
SWITCH De_LFORMs 20394000 
LRANDOMs 20394090 
LNOsLDISKsLTAPEsLPUNCHsLPRINTsLPAPER, 20394900 
TPNOe¢123 GO TO DSKCHECK3 % "DISK" MEANS DISK SERIAL 20457000 
BEGIN TPNO*213 IF TYPE=COPYN THEN BEGIN 20461300 
TPNO¢223 GO LCOPY END ELSE 20461310 
IF SCANFBACK THEN GO ERROR} 20461320 
ENDS 20461330 
IF TYPE*CQOPYN THEN BEGIN TPNO*223 GO LCoPY END ELSE 20461810 
BEGIN TPNOe4$3 IF TYPEsCOPYN THEN BEGIN 20470000 
TPNO«153 GO TO LcOPY END ELSE 20470100 
IF SCANSBACK THEN Go ERROR 20470110 
ENDS 20470120 
IF TYPE=COPYN THEN BEGIN TPNO*€L63 GO LCOPY END ELSE 20475100 
LRANDOMS TPNO©*103 GN TO OSKCHECK3 20484900 
"FORM "> 77, % SWITCH DCPCC) 41485600 
"RANDOM ", 7A »* 41485610 


$: THIS PATCH CORRECTS THE INABILITY TO SPECIFY COPIES WITHOUT 
$1 a~LSO SPECIFYING pack UP pnISk ON THE FILE caRDe 

$3 MODIFIED 12/2/73 © SPECIFYING "DISK" ON A FILE CARD NOW MAKES 
$: I7y A SERIAL FILE. Ext @ ALGOL FILE TAPEsA/B DISK 

$t MODIFIED 12/21/75 = SPECIEY "RANDOM" To GET RANDOM DISke 

$: MODIFIED 12/21/75 TO MAKE OTHER PATCHES FIT BETTERs 

$? FROM DREXEL UNIVERSITY = JHH * 5/21/76 

$3 THIS PATCH Is AFFECTED By PaTCH 724 


Si Wk we ae a a ae gy RRR E TEER HEHKAK WHEN KHER H AEA NREEK KKK 


$# PATCH 604 FOR TSSMCP CONTAINS 1 CARD, DISK ADDRESS ERROR 00000100 

$1 THIS PATCH CORRECTS FOR AN UNDETECTED DISk ADDRESS ERROR AT H/Le 00000200 

$! DREXEL Ue PATCH 604 3/20/76 00000300 
Ie CRA#RL) GEq RAQD THEN RLEN te o ELSE 40060060 

TESTE TTELALILIETLISTE TTL LI TELL TI LI TILiI Tree teh ci ect e te oa 

$# PATCH 639 FOR TSSMCP CONTAINS 2 CARDS» EOF PSEUDO#RDRS 00000300 


$t THIS PATCH cORREETS AN EARLY EOF ON PSEUDO@RHORS WHERE THE LAST cARD 00000200 
$: In A DECK CUSUALLY AN "END® CARD) WOULD NOT GET LISTED IN THE PACKET.00000300 
$1 MODIFIED 8/18/74 TO AVOIN A SUPERFLUOUS READ ON OISK SEG ZERQ CAUSED 00000400 


$: BY THE ABOVE PATCH, 00000800 
$3 DREXEL Use PATCH 6392 ORIGINALLY 8/8/73 00000600 
IF CAtsNteep(HUP)41) > CHOE7J41) THEN 07397000 

IF JT>0 THEN % NEXT BUFF EXISTS 07401900 


SL EG ER REE ER EEE EEE EEE eee eee HE HHIIIOIIOS 


$# PATCH 643 FOR 7SSMCP CONTAINS 12 CARDS. FIx PLACEFINDER 


Ie CNTL*JARCPiMyIX210])80 THEN GO SANDAS % NO LYNE DICT 04709900 
DISKWAITC#T,30,NT193 04710000 
IF CAAeBELO).CFFI)=0 OR S>BEL1)1 OR A>1023 THEN 04711000 
NTA*JARCPIMIXs HIS NT2eAAHS DIV 303 04722000 
IF (NT3*NT2 Diy NT1 * 10) > 29 THEN GO TO SANDA3 04723000 
IF (NTS3¢JARCPIMIXsNT399"0 THEN GO TO SANDAS 04724000 
T¢NT34+NT2 MOD NTIS DISKWAITC#Ts30e1)3 04725000 
IF (JeglS MOD 303) < 0 THEN GO TO SANDAS 04726000 


AAeJ,CCFIS IF JelFFI 2 O THEN JolFFIe13 
$ VOINT 


04727000 
04730000 


IF WACWeS DIV 30)THEN DISKWAITC#Ts 300 CJARCPIMIXs (CNTL©AASW 04731000 


NIV CNT2eJARGCPIMIXs8])+10)4NT1 MOD NT2) DIV 1 93 
$i THIS PATCH CORRECTS a PROBLEM OF INCORRECT OISK ADDRESSES 
$1 IN MCP PROCEQURE PLACEFINDER, 
$: MODIFIED 11/25/73 » STOP POSSIBLE CONTROL*STATE LOOP IF BINARY 
$1 SEARCH BOTTOMS OUT, 
$1 MODIFIED 3/10/74 = CHECK THAT THE SEGMENT EXISTS IN THE PROGRAM» 
$1 AND THE ADDRESS IS LE@ 1923. IF NOT» yUST GIVE SEG AND ADDR, 
$: ALSOs ELIMINATE USELESS READ ON DISK SEG ZERO IF NO LINE DICTe 
$! DREXEL Us PATCH 643 
$1 MODIFIED FOR TSSMCP BY DR» UCSC JANe 18% 1977 
$! SEE aLSO UCS¢ PATCH 515 
$! SEE ALSO DREyYEL ye PATCHES 209, 785, 789, AND BROCK ye PATCH 528 


(ERP SPER R ACES ASEESEPC RESETS SIESCC CCC ROCCO ERAS EERE EPCRA CECE ESE SEE S ES 


$# PATCH 644 FOR TSSMCP CONTAINS 2 CARDS <MIX>TI 
$t FIX BUG 
$? DREXEL Us. PATCH 644 9/23/73 
$1 MODIFIED FOR TSSMCP RY DRe UCSC FEBe 102 1977 
T © COCLOCK4PCRTR)) Drv 60)0031917) = 
IF T<O THEN T ¢ T + @4000003 


LER SERPS SCESESESES OLE S SE SOELSOCASLSOC CESS ESSERE SESE PORES ERE SESSESESESE EES 


$# PATCH 645 FOR TSSMCP CONTAINS 1 CARD. FIX DISKIO 
$t THIS PATCH INTEGERIZES THE ARGUMENTS TO OISKIO TO INSURE 
$: THAT THE VALUES ARE INTERPRETED CORRECTLY» 8AD THINGS MIGHT 
$: HAPPEN IF A REAL CNORMALTZED) NUMBER IS PASSED To DISKIO. 
$! DREXEL Us PATCH 645 12/2/73 
COREssCORES SIZEygeSIZES DISKsmDISKS & INTEGERIZE 


04731100 


08533000 
08533150 


00000100 
00000200 
00000300 
00000400 
00000500 
06004100 


ERE TTR EAE TTET TEE TCL LI TLE LLITILE LIL TELE TE LITE LITLE LCL 


$# PATCH 647 FOR TSSMCP CONTAINS 2 CARDS, ¢ FOR SPOUT 
$: THrS PATCH PREVENTS PROBLEMS WrTH DATA PASSED TO SPOUT WITHOUT A 
$: GROUP MARK (+). SYMPTOMS USUALLY INCLUDE A BOMBED MEMORY LINKe 
$1 A "en 15 PLACED IN THE LaST CHARACTER OF THE MESSAGE, 
$1 DREXEL Us PATCH 647 2/2/74 
STREAM(CX*(CMEMESSAGE"1),CCFI94) & 7 COTFI))3 
DS © LIT “ew; 


(REUSE RRC CESSES SEC EPEPE CETERA SCRE SEE OPS Pere ee RES EEE EUS RES 


$# PATCH 654 FOR TSSMCP CONTAINS 4 CARQS. FIX LDCNTRL 
$! THIS PATCH VOIDS SOME CONE FROM COM23 2/25/74 
$t IF LOCNTRL WAS STARTED FROM A PSEUDQ DECK AND DS ON A NO FILE 
$: THE SYSTEM WOULD LOSF WHICH PSEUDO«ROR THE yoB HAD STARTED FROM 
$3 WHEN LOCNTRL ENDED THE AcTIVITY COUNT FOR THE PSEUDORRDR 
$! WOULD NOT BE COUNTED DOWN THUS LEAVING THE DECK STUCK FOREVER 
$3 COR UNTIL H/L WHICH EVER COmES FIRST) 
$1 7/3/74 CORRECTS a PROBLEM WITH LDCNTRL ENDING IF THE CARD READER 
$1 GOES NOT READY AFTER READING A CONTINUE CARD 
$! DREXEL U, PATCH 654 

IF FIRST AND CDONLY AND NOT CONTINUE THEN 

GO EXIT ELSE 

$ VOIDT 07071912 
$ VOIDT 07072902 


02142100 
02142110 


00000100 
00000200 
00000300 
00000400 
00000800 
00000600 
00000700 
00000800 
00000900 
00001000 
07059110 
070591432 
07071899 
07072899 


SE a REE EEE KHER EERE ERK HEHNIIIIOIOND 


$# PATCH 675 FOR TSSMCP CONTAINS 5 CARDS PRNPBT ES*ED 

$3 THIS PATCH FIXES THE WAY TERMINATE HANDLES AN ES®ED PRNPBT/DISK, 
$1 THE CODE WAS ALL WRONG SINCE XVee REWROTE PRNPBT, 

$: NOW THE UNITS CPRINTER» PUNCH» TAPE) SHOULD BE CLEARED PROPERLY, 


em. - 


$! DREXEL Us PATCH 675 6/45/74 
$1 SEE OREXEL U. PATCHES 7509 926 


REGIN 02261250 

IF CLUNeL ee C4195))<16 THEN SLAPITOFFS3 02261300 

LUNe#L,£4632)4193 %& LPA»s LPBs, OR CPA 02261350 

SLAPITOFF3 02261400 

$ VOIDT 02261704 02261450 


SURE HERR a EEN EEE Ee HERE ERE ER HHEN EERE 
$# PATCH 688 FOR TSSMCP CONTAINS 2 CARDS. FALSE CONTROLCARD ERRORS 
CCCOMPILE*Q3 % INITIALIZE 20584390 
CCUNIT#O3 * INIT?LALIZE 20590030 
$1 THIS PATCH WILL CORRECT a PROBLEM WITH INCORRECT CONTROL CARD ERRORS 
$1! DREXEL Ue PATCH 688 A/27/75 
$! MODIFIED FOR TSSmCP RY DORs UCSC FEB. 7s 1977 
(ER RERES SESS eee ce Pe ce Tee eT CCCP CSET SL SSL TTC TPCT CLL TTT TTT TTT 
$S# PATCH 697 FOR TSSMCP CONTAINS 2 CARDSe I0 ERR STATUS 
$t THIS PATCH CORRECTS a PROBLEM WHERE STATUS CoVLD GET AN UNEXP Io ERR 
$: WHILE PLAYING WITH A TAPE ORIVEs IT SHOULD RECOVER OK NOWe 
$$ DREXEL Us, PATCH 697 1/25/76 
OO UNTIL CTI1eWAITIOCAREA INX 3400000122875) ) x03 22112000 
IF 712004392340 THEN TLeWAITIONC@420000000025sU)3 22112100 
SOR eee ae a a EERE HERE RRR ERE HEN EREREN Ea 


S#PATCH NUMBER 708 FOR TSSMCP,XIII CONTAINS 3 CARDS PRINT PRN WITH PG 


IF TEST THEN BEGIN STREAM(C BOTs BUFF )3 08051000 
BEGIN DS¢10O LIT"PG=EDCPRNa"s SI*LOC BS DS#5 DEC DSeo LIT") eM} 08051004 
ENDS END % PRINT PRN WITH PLAIN pGMT 08051005 


$1 FROM DREXEL Ue 
$! SEE ALSO BROCK U. PATCH 543 FOR TSSMCP3 PATCH 708 REQUIRES LESS CODE 
(IRC P RSPR SESS ETS Se Pee Pa TTC CE LEC eee T TST TCL CTCL TTL rTrrrirriiri tT 
$# PATCH 715 FOR TSSMCP.XV,3 CONTAINS 1 CARD, MT 10 "ERRORS" TO *RETRYES" 
S$; CHANGE wERRORS* TO "RETRYES IN MAG TAPE IQ MESSAGE, BECAUSE USERS 
S$: GET WORRIED BY Iq ERRORS. (AS THEY RIGHTFULLY SHOULDe OReUCSC) 
$1 NATAL Use PATCH 7153 SPELLING BY ORs UCSC 

C1283081 BI ,"RETRIES"»FPBCFN) »FPBCFNe1 I] 2902093 37285320 
(ER SES EPPS ESE SEPP CS PCC eC ee Ce SCLC CLS SST SPC LEST CTCL ETC Tr 
S# PATCH 717 FOR TSSMCP,XV.3 CONTAINS 13 CARDS, BACKUP TAPES NOT AUTOPRINT 
$3 TO MaKE PRINTER gackUP TaPES IGNORED BY THE gUTOPRINT MECHANISM, 
$t MODIFIED FOR MARK xy.2 By Ray BARTHO AUG, fy» 1974 
$1 MOOTFIED FOR MARK xV,3 By RAY BARTHO NOV, fs 1974 
$t MONASH PATCH 5565 NATAL Use PATCH 717 


LABEL FOUNDsFIREITUP»sQuITs 08255800 

END ELSE ¥ QS0- PB MT 08259800 

BEGIN RRRMECHeTWOCUCABS(Q)) OR RRRMECH} 08259610 

LABELTABLECU) « 08259820 
PBreTINUCVI(6!302183a8@2171943185)3 08259830 

MULTITABLELV] © PBT3 08259840 

LABELTABLECV) «© PBT&TINUCU)(C6230818 78 08259850 

210642439513 08259860 

GO FIReITup3 08259870 

END 08259880 

$ VOINT 08266504 08260899 
$ VOIOT 38639104 38639000 
IF J THEN SETNOTINUSE(U20) ELSE LABELTABLECU)sCitSje43 38640000 


Se TEER RMR EERE EEE EEE EKERE KEARNS 

S#PATCH NUMBER 724 FOR rSSMCP CONTAINS 13 CARDS, FULL PAGE 
IF RNOCTABLECU) OR MULTITABLECU )m"FULLPGE* 04391550 
THEN IF TOQUELS}].C2a94) THEN IOQUECSIeLFFI*©@40013 XDBL*CH 41 04394560 


$3 


IRE T TTL TELE LTLITTR ETRE LLL LILLIE: 


$# 


$! 


SRE SECC ARES E SEC EEPCRSIC CSAC SCSOCLCASAECSES ESE CS SOC ELESCECESCSOSSCO SELES SLES 


ELSE IOQUECS}.CFFI¢e40012 % OBL SINGLE = SKIP TO CH 10 
ELSE *¥ SKIP TO CHAN 4 ON EOP IF NOT 66 LINES 
RocTARBLECVIeCA781JeINRECLCOJ="FULLPGE"3 % LINES66 OPTION 


FORM = 76H, % SWITCH DCPCC)"FORM*@="SPECTIAL” 
LINES66 = 77#s % 66 LINES PER PAGE 
LLINES66, % 

LLINES66, 


LLINESO6! X 
EQNCOJ © “FULLPGE" 3 SET UP MFID FOR FULL PAGE 
“FORM "» 76 9 
"LINES66"s 77 » 


REV 12/9/72 MARK XIV 
THIS PATCH WILL CAUSE THE CHANNEL 42 PUNCH ON THE VERTICAL 
FORMAT TAPE TO BE OVERLONKED 
THE PRINTER YS CLEARED BY DOING A SKIP OF A SINGLE OR DOUBLE 
SPACE OR IS NOT CLEARED AT ALL DEPENDING ON THE ORIGINAL 
CONTROL INFORMATION 
THIS WAS TESTED ON MOD IrI 10S WITH B9242°4 PRINTERS 
THE OOCUMENTATION SAyS THIS SHOULD NOT WORK IeEe 
YOU ARE SUPPOSED Tn CLEAR THE PRINTER WITH A SKIP TO CHANNEL 
THIS MIGHT BE THE CASE WITH OIFFERENT PRINTERS ANO/OR 10S 
THIS VERSION WILL WRk ON ANY CARRIAGE TAPE ELIMINATING THE NEED 
FoR SPECIAL PUNCHES ON CHANNELS 10 @ 11 


MODIFIEN JULY 1973 = MARK Xvel 

MOOIFIED 02/1;0/74 = MARK XxV.2 

MODIFIED 12/21/75 TO MAKE OTHER PATCHES WORK BETTER 

FROM DREXEL UNIVERSITY = JHH = 5/21/76 

NONE OF THE ABOVE STUFF 1S TRUE ANYMORE = IT WONT WORK WITH B#301S 
THE PROBLEM YS THAT wHEN THE Be32t HITS CHANNEL 12 PUNCH IT KEEPS 
THE END OF PaGE STATUS BIT ON UNTIL A SKIP TO SOMETHING IS GIVEN 
THIS PUTS McP INTO a TIGHT LOOP. SOs WE GO BACK TO USING A 
SPECTAL FORMAT TAPE wHICWH Has CHANNEL 11 PUNCHED A DQUBLE SPACE 
AFTER CHANNEL 12,5 AND CHANNEL 10 PUNCHED A SINGLE SPACE AFTER 
THIS PATCH AFFECTS PATCH 603 


PATCH NUMBER 725 FOR TSSuCP.XIII CONTAINS 5 CARDS DONT ALLOW PRN#O 
DleDI@as nSe_LIT "43 
IF NOT Tetiti] THEN IF T=O THEN 
If T,C1!#1380 AND T30 THEN BEGIN 
STREAMCBUFF)3 pSe17 LIT "NOT PGTEDCPRNa0) 63 
LABELTABLECUJ® @143 GO EXIT ENDS TeABS(T)3 


THIS PATCH WILL PROHTBIT THE OPERATOR FROM PURGING A TAPE THAT 
HAS A PHYSICAL REEL NUMBER OF ZERO WITH THE PG MESSAGE UNLESS 
HE ENTERS A NUMBER» SUCH AS “PGMTB9"122". HE MAY ENTER “PGMTC=0" 
Ip FOR SOME REASON A PRN IS NOT APPLICABLE 

FROM OREXEL Ue 


PATCH 745 FOR TSSMCP CONTAINS 3 CARDS. PBY REEL NUMBERING 
THIS CORRECTS THE PRqBLEM WHERE A JOB USING PBT USED MORE THAN ONE 


REEL BEFORE ENDINGe A SUBSEQUENT JOB REQUIRING PBT CONTINUED ON THE 


FINAL REEL OF THE ABOVE yO8, BUT WHEN A REEL CHANGE OCCURRED» THE 
VALUE OF REEL FOR THE CURRENT JOB WAS PuT IN THE LABEL OF THE NEW 


Reel. THIS MEANT THAT WHEN PRINTINGs THe Reel NUMBERS IN THE LABELS 
WERE NOT CONSECUTIVE THUS INTERFERING WITH AUTOMATIC REEL SWITCHINGe 


04391570 
04391580 
12860100 
20240000 
20240020 
20392880 
20394080 
20465080 
20465100 


41485600. 


41485620 


08029046 
08033980 
08033992 
08033993 
08033994 


$3 THE REEL NUMBER OF THE FERST TAPE IS NOW PLACED IN THE RDCTABLEs AND 
$t ASSIGNED TO NEW JOBS USING THE SAME PBT FROM THE RDCTABLE. THIS 

$1 CONFLICTS WITH THE DOCUMENTATION IN THAT THE DEFAULT REEL NUMBER FOR 
$: PaT*S NEED NOT NECESSARILY BE ZERO, 

$8 NATAL U,. PATCH 745 


$1 MODIFIED FOR TSSMCP BY OR»e UCSC JAN, 178 1977 
ROCTABLEPUJ+¢PCOUPS,LODI&REEL EC 14238810) 370461477 
RCDATELS43 3187 ACYCLEC41 3418733 37046478 
REEL *ROCTAB,ECU}e(14%10)3 % GET ACTUAL REEL NUMBER 38247100 


LRP CCEPESO SSS ESPRESSO TOE RECESSES ES REE SE RSE ESE PEER EER SERRE REESE ES 
$# PATCH 749 FOR TSSMCP CONTAINS 1 CARDe MEMORY PARITY ERR CAUSES "SD" 
$2 THIS PATCH WILL CAUSE THE McP TO WOLD ON TO a PSEUDQ@DECK OF A yOB 
$! WHICH HAS BEEN OS*ED DUE TO A MEMORY PARITYe AFTER ALLs THAT WASN®T 
$! HIS FAULT. 
$s MODIFIED 6/15/74 = SD BIT SET IN TERMINALMESSAGA INSTEAD OF 
$: IN OUTER BLOCK. 
$1 DREXEL Ue PATCH 749 (BROCK Us. PATCH 749 IS THE UNMODIFIED VERSION) 
IF Nw32 THEN JARPFPIMIX961,Cisilels % MEM PAR 02206100 
LR CTE SPCRRSESESC ECE CSSAP ESS OE SS CCE CCC SECASEEC SSPE LEELA PERSE REESE REE ES | 
$# PaTcCH 753 FOR TSSMCP.XV.3 CONTAINS 2 CARDS. TIMeEC"6) TO GET MIX INDEX 
$: THIs ADOS A NEW 7IME FUNCTIONe TIMEC"6) WILL RETURN THE MIX INDEX OF 
$3 THE CALLING PROGRAM AS AN INTEGER, 
$t NATAL Ue PATCH 753 
wos I4eWEEKDAY? GO TO INITIATES 18711500 
IF 14 = (6) THEN IT4epimrxs 18711690 
SU ee REEMA HEA RR EKER ENE EEK Kae EKER KEKE REKKHERE KEKE 
$# PATCH 757 FOR TSSMCP.XVI.9 CONTAINS 12 CARDS. REMOVE UNLOAD FILES AT END 
$: THIS PATCH CAUSES THe FILES SPECIFIED TO BE UNLOADED TO BE REMOVED 
$1 QNLY aFTER THEY HaVE aLL BEEN DUMPEDe atSO IF a DISK PaRITY OccuRS 
$: wHILE DUMPING THEN THAT FILE wILL NOT BE REMOVED. 
$! NATAL U, PATCH 757 


MCFAINFO#yy,Cati 72203 % DONT REMOVE IF UNLOAD 28093900 
PCMCFA+,)sMCFA])3 &% SAVE NAME FOR UNLOAD 28094500 
NTis=P3 MCF AIO ayT1s MEF ALI SPC XCH)S & REPLACE AMES 28097100 

$ VOIDT 26265804 28265600 
TMPI3FASZ OTV 2 = 13 28307700 

FOR Jt=0 srFeP 4 UNTYL TMP nO 28307705 

IF COATEMECFAINFO+J}) eC CF Ie18 THEN % FROM DISK 28307710 

IF UNLOAD THEN 28307715 

BEGIN MFYDtemCFA+Jx2)3 FIDIBM(FAtI + Jx273 28307720 

PC DIRECTORYSEARCHC »MFID&1C 384781) oF IDs7)»DEL)3 28307725 

IF DSED THEN Go To INITIATES 28307730 

END3 28307735 


SER RE eR ea EEE REE eee 

$# PaTCH 764 FOR TSSMCP CONTAINS 3 CARDSe TaPES IN USE a~FTER FM OR IL 00000100 
$1 THIS PATCH PREVENTS yAPE UNTTS FROM BEING MARKED AS IN USEe THIS 00000200 
$1 OCCURS AFTER AN "IL" TO A TAPE UNIT IN RESPONSE 10 A “#NO FIL ON 00000300 
$: DYSk* OR AN “FM TO a TAPE UNIT CONTAINING A TAPE WITH NO WRITE RING 00000800 
$: IN RESPONSE TO A “#Fu ROD". THE TAPE WILL REMAIN IN USE UNTIL A H/L 00000500 


$1 OR THE UNIT 1S CLEARED By A "CL", 00000600 

$1 HERIOT*WATT Us PATCH 764 00000700 
$! MODIFIED FOR TSSMCP BY Dr» UCSC FEBe 35 1977 

END ELSE LABELTABLELT2) 18°C *P(DUP))5 06463740 

IF PRNTABLECUI,[1!11 THEN ELSE 37053300 

BEGIN LABELTABLECY)!2*(#P(D0UP))3G0 TO SOMEWHERESENDS 37053400 


PRCT ECCCCSCCCECELICCSICCSOPC CAS COCCOCOSEPECCSECOPR SSE S CESS ETC EES SEE | 
$# PATCH 791 FoR TSSMCP CONTAINS 4 CARDS. TYPE PBCOUNT AT HALTLOAD 


$t PATCH TO TELL THE OPERATOR HOW MANY BACK#UP FILES THERE ARE ON DISKe 
$i REGARDLESS OF THE SETTING OF "“AUTOPRNT", 


00000200 
00000300 


$: THE FIRST & THIRD CARDS REMOVE THE DECLARATION FOR THE UNUSED LOCAL “"L" 
$: AND VOINS SOME UNUSED CONDE REFERENCING "L" To SPOUT THE "PBCOUNT™ MESSAGE. 


$1 BY NILS OTTEs, UNIVERSITY OF NATALe SEPTe» 1976 

$i HERIOT@WATT Use PATCH 791 

$3 MODIFIED FOR TSSMCP BY DR»e UCSC FEB. 8, 1977 

REAL NEXTLINKs ADs Xe Ke SEVEN7s FORTYs EUSU3 
IF PBCOUNT > 0 THEN % TELL OPERATOR 
ENOS SPOUTCX)3 

$ VOIDT 


Bg We ee ee ee te ee ee a ee EERE ERE ERE HERE EEHEKEEKKREKE EEN E 


$# PaTCH 801 FOR TSSMCP CONTAINS 39 CARDSe MULTI KEYIN MESSAGES 
REAL BUFF.» KTR» TYPE, Miys As Ie Js Ko Ty 
LABEL RESTART3 
RESTART? 
TYPE © KEYINSCANCKTR MIX 93 
IF CPROCED*TYPE.(1853)=1 AND CCICTYPE.CCFJ 228 OR Ievcc 
OR 1233 OR 1#34) OR CPROCED=0 AND Iwi) THEN ELSE & SSeCCeOCsFEs AX 
BEGIN 
STREAMCKTRsaT!2 53 
BEGIN STe¢KTR3 
BCOOCIF Sca""" THEN 
BEGIN L& SYeSI+43 
63¢SleSI4¢3 IF SCH""" THEN YUMP OUTS 
IF Scs"e" THEN JUMP OUT 3 TO YECH)$3 
Sfl+SI+13 
IF Scan" THEN GO TO L3 
END3 
IF SCate" THEN JyMP OUT 2 TO YECH3 
IF Scw"3" THEN 
BEGIN 
T+S¥ 3) TaLlLyes3 
Olel3; OSelLrT "es 
Xi SleSyeis IF gc2"s" THEN GO TO X3 Test 
JUMP OUT 2 TO YECH; 
ENDS SYesl+1)993 
YeCHt KTReTALLY3 
END STREAM$ 
IeP3 IF P THEN 
STREAMC Is TeT#GETSPACE(622020)+3)3 
BEGIN 
Sler3 


00000600 
00000700 


40004500 
40320100 
40320600 
40338000 


16951600 
16951950 
16954450 
16954502 
16954504 
16954506 
16954508 
16954510 
16954512 
16954544 
16954546 
16954548 
16954520 
16954522 
16954524 
16954526 
16954528 
16954530 
16954532 
16954534 
16954536 
16954538 
16954540 
16954542 
16954544 
16954546 
16954548 
16954550 
16954552 
16954554 


BCOOCIF SCa"e" THEN JUMP OUT 2 TO L ELSE OS*CHRI)3 LsOSeLIT%©"3 16954556 


END STREAM$ 
END CHECK FOR KEYIN RECYCLES 
IF. PROCED#7 THEN GO TO TRALERR? 
IF T>0 THEN x ANOTHER MESSAGE 
BEGIN 
BUFFeT3 Teo} 
GO RESTARTS 
END; 
$1 OREXEL U. PATCH 804 9/23/73 
$3: THIS PATCH WILL ALLOW MORE THAN ONE COMMAND IN EACH KEYBOARD MESSAGE 
$t SEPARATED BY SEMICOLANSs AS SUCH? 
$t MXSTSJBLICC REMOVE A/B 
$: NOTE: NO KEYIN COMMANDS mAY BE CONTINUED AFTER A CONTROL CARD IS 


16954558 
16954560 
16954600 
16969710 
16969720 
16969730 
16969740 
16969750 


$! FOUND, 

$1 MODIFIED 11/10/73 = CHAINED MESSAGES IGNORED FOR FEsr Oce AXe 

$3 MODIFIED 9/8/74 

$1: THIS PATCH INHIBITS THE RUNNING OF KEYIN PROCEDURE “KEYIN2" IF THE BED 
$! IS GETTING FULL. 

$: IF THE OPERATOR (OR A REMOTE USER) KEYS IN A MESSAGE CAUSING 

$: INDEPENDENT RUNNER KFYIN® TO RUN» AND THE BED IS WITHIN 4 ENTRIES OF 
$1 FULL» A "WATTeee( KEYIN MESSAGE)” WILL BE SPOUTED. (NOT NEEDED IN TSSMCP) 
$! MODIFIED 10/5/75 = FYX PROBLEM WHERE IF INPUT MESSAGE IS LONGER THAN 
$3; 480 CHARACTERS» A ¢ wOULD BE PUT IN THE FIRST CHARACTER OF THE 

$: NEXT MEMORY LINKs LEADING Tn GRAVE PROBLEMS. 

$t ALSO, SYCCESSIVE SEMICOLONS ARE IGNORED, 

$t MODYFIED FOR TSSMCP BY DRe UCSC FEB. 7» 1977 

SER a EER EERE EERE YK R ETHER RRR aK 
$# PATCH 815 FOR TSSMCP CONTAINS 47 CARDS. CLEAR IN USE FILE 

$$ DREXEL Ue PATCH 815 2/10/74 

$: THIS PATCH WILL ENABLE THE OPERATOR TO CLEAR AN IN@USE FILE BY 

$: DOING A "Q RESET FILE a/p%e IT SHOULD BE USED CAUTIOUSLY SINCE 

$1 DIRE CONSEQUENCES COULD RESULT FROM "CLOSING™ A TRULY "IN@USE" 

$t FILE. IT IS USEFUL FOR THOSE STUCK IN USE PBD FILES AND SUCH. 

$! MODIFIED 10/27/75 » REPEAT mcP FILE IN USE MESSAGE ABOUT EVERY 2 MIN, 
$3 MODIFIED FOR MARK XVY BY DR», UCSC FEB. iis 1977 

$t SEE ALSO UCSC PATCH 519 


WHILE NOT TOG nO 18031400 
COMPLEXSLEEPCECLOCK AND @17777)80 OR T0G)3 18032000 
SLEEPCCCLOCKI,NOT CLOCK)3 18032010 

BOOLEAN FT=N3 DEFINE FHCFHL)=MET#FHiJ#s & RESET FILE a/B 20704100 
SUBROUTINE CLEARTHEFILEs & €LEAR AN IN@USE FILE 20704200 
BEGIN 20704240 
FHO4),0011067603 % EXCLUSIVE 20704220 
FHLE4),016t20)¢03 % OPEN COUNT 2 20704230 
FHE9},COL§28}¢03 % TnGS & OPEN COUNT 14 20704240 
DISKWAITCT. CCF 1s30,TeCFFI)3 % FIX IT 20704250 
FILEHOLDCCMME235CMML31,09T%0)3 % WAKE UP WAITING PROCESSES 20704260 
LBMESSCCMM(62] 5CMM(3J]514122620SPOUTUNITo1 93 20704270 

END CLEARTHEFILES 20704280 
IF CN#¢ACCESSD THEN 20714000 

IF NOT CFTeFXTQGeCCNSFILEV)) THEN GO TO CCERR} 20714500 

$ VOIOT 20768000 
FND ELSE IF FY THEN CLEARTHEFILE ELSE BEGIN 20769000 


IRIEL ECA SCTE SIEVE SISCS SSS CS CSL TT ECCS SLC CALI PELE PELOSI CEILI LLL Tri 
S#PATCH NUMBER 846 FOR TSSMCP CONTAINS 7 CARDS. OUMMY FILE 


IF 100.0£3%53230 THEN GO RETURNS 2% SPO 04105998 

FORM = 75#5% SWITCH DCPCCI"FORM*@"SPECIAL™ 20240000 

LOUMMY>» 20392870 

LDUMMY»s 20394070 

LOUMMY? TPNOe©143 & © FORM SPO" # DUMMY FILE 20451900 
*#F ORM ", 75 » % SWITCH oCPCcC) 41485600 
"DUMMY 76 » 41485630 


$: THIS IS THE mCP PORTTYON OF THE DUMMY FILE PATCH. IT ALSO REQUIRES A 
$: PATCH TO THE INTRINSTCS. IT PROVIDES THE WORD "DUMMY" AS A UNIT 

$t TYPE, QUTPUT TO "DUMMY" WILL CREATE A “SPECIAL FORM SPO FILE» 

$: WHICH THE INTRINSICS WILL IGNORE. 

$1 FROM DREXEL Us PaTCH 846 JHH aT UCSC 

So tee eee a EK EKER RA REET ERERKEHKEEHAEKKERNK KARE 
S#PATCH 890 FOR TSSMCP CONTAINS 173 CARDS = DATAO29/EBCDIC 


$tAUG 1975 HERIQT=WATT UNIVERSITY * LOCAL ONLY* 
$:AND PERFORMS FBCDIC To BCL CONVERSION 
$tIMPLEMENTS DATAO29 CARD 


$tWAS PATCHES 900"902 In MARK XVele *** NBi SEQUENCE NUMBERS CHANGED *¥% 


$1 
PROCEDURE EBTABLES 
BEGIN LABEL L3 

PeOsXITpelsDEL)3 
Lets 


07003270 
07003280 
07003290 
07003300 


Oo B22 ML P22 SMOTS OMe M/S2PDM a MMI KPa IPP PROP aM PPPD% yo" ECB IMs NAD22" 907003310 


al 0 i DA A © A De Di 0 0 2s A 2 


9229 2299 M7222 MIDDOMMRODIM NP 202 MOD 29M PS MODDOM NT DORN S NOO90N 


sll De By Dy Ai a Ot Oe DO le Oe Ae A De Oe Ot Di De 


MEET OMS MPDDDM MY KOM MID72OM MAE TIM 2999 0999 PN OD2IIM ML COM MO200M, 


ME 22DMMPDP2IM  MOPIDM MIPIM NM PDDIMSNPIDIDMN, 

0077706752805 37041 350067 146616,86517647 3» 

©4757 6656 2045554453 .%72999% 7772» C27TH2620 20253524365 

. T+ Mal Ry yO Wy De Oe Oy Dy A a 2 Os Oe A Ze OO 
ZQMARKADDRESSES 


MO2ID™MSMIIDIM SMOPDDM S MIDDOM , NODADM SMIDDDM MAIDIM SNIDION  NIDDIN NODDDM, 


lls Wy Dal ie We Oe ODA Bs OA OT 2 2 0 a 2 OO A 


0909000200202 020 Oe0eNs 0200 0n0e % SPACE FOR ADDRESSES 


09020202050903 

END$3 

REAL PROCEDURE SETUPEBTABLES 

BEGIN REAL ADR? LABEL ExIT3 

DEFINE STOREADDRESS= 

Xt=Sr3 SItexLOC x3 Syr #57453 

DS#=3 CHRS DI taples #3 
EBTABLE3 

PCEOMECADRIa*P(,FBTABLE) INx NOY 12))sI0R)3 
SETUPEBTABLE SeADRtaaDR, (CF 3433 
TF MCADR+84)] = O THEN 


STREAM (XtzOs TABLE taADR, QMARKTABLEADDRESS!£ #ADR4 322 LOCATIONS #2ADR4+40)3 


BEGIN. 
DItsTABLES SIemTABLES slsasl+as 
2C4OCSTteSrT+ds3 HStag CHR}))3 
SFIRST FILL ALL OF ADDRESSES WITH ADDRESS OF 75 
SI'#QMARKTABLEADDRESS3 
XI=Sy3 
SI$s_oc X3 SltsSl+53 POINT Sr AT ADDRESS OF QMARKS 
DIts_OCATIONS3 
DSt<3 CHR} 
SIts_ OcaTIONS3 
08!263 wWOS3 
SNOW SET ADORESSES FoR vaLIO CHARS INTO EBCOIC TABLE 

SI's#TABLE? 
DISLOCATIONS 
3CSTOREADDRESS3 ZSTORE ANHRESSES FOR LP=0s102 
é SA CORRESPONDING TO BLANKs9 HOLEs8 HOLE 

['=x3 
SIt#S74635 SlteSl41)3 xSKIP 8 WORDS DOWN TABLE 
Oltapl+e3 ZLP23 1S INVALID 
STOREADDRESS3 ZLPZA,,e00 7 HOLE 
DI 1a01+83 *LP35 IS INVALYO 
SIt%=x3 
SIseSto13 ZSKIP 4 CHAR DOWN TABLE 


07003312 
07003320 
07003322 


' 07003330 


07003332 
07003340 
07003342 
07003344 
07003350 
07003352 
07003354 
07003360 
07003370 
07003380 
07003400 
07003410 
07003412 
07003414 
07003416 
07003420 
07003430 
07003440 
07003450 
07003462 
07003464 
07003466 
07003468 
07003482 
07003484 
07003486 
07003488 
07003490 
07003492 
07003494 
07003496 
07003498 
07003500 
07003502 
07003504 
07003506 
07003508 
07003540 
07003512 
07003514 
07003516 
07003518 
07003520 


STOREADDRESS3 ¥LP=6, 002788 HOLES TOGETHER 
DIstepr+a3 

SIizyx3 

STliaSreq3 ; 

STOREADDRESS3 SLP=B oa eh HOLE 

Deen +as 

Sltsy3 

SytaSreq3 | 

STORE ADDRESS3 ¥LP2100ee. 588 HOLES TOGETHER 
OI tanr+4o3 ZMISS 5 WORDS. ¢ceLP#11212913914915 
Si1tsx3 

Stt=Sy+43 ; 

STORE ADDRESS; BLP8S16e0ee5 5 HOLE 

DI teny+as 

S{txx}3 

SrisSreq3 

STOREADDRESS; ZLPeiRecees 5&8 HOLES TOGETHER 
2¢DIt2p1+52)3 ZMISS 13 WORDSeeeelh P#19"731 
Sttex} 

SlteStet; ; 

STOREADDRESS3 ZLP#3IZ—0e00e.e 4 HOLE 

DIitenr+8: 

Sliny3 

SyteSyey3 

STOREADDRESS3 ZLPa3toeesee 488 HOLES TOGETHER 
END3 

END3 


07003522 
07003524 
07003526 
07003528 
07003530 
07003532 
07003534 
07003536 
07003538 
07003540 
07003542 
07003544 
07003546 
07003546 
07003550 
07003552 
07003554 
07003556 
07003558 
07003560 
07003562 
07003564 
07003566 
07003568 
07003570 
07003580 
07003590 


RE ee Te ee EEE EERE EEE Eee eee te O7003600 


STREAM PROCEDURE ERCDICCONVERTCINTOsTABLEs POINTERS 93 
VALUE INTO, TABLE sPOINTERSS 


07003610 
07003615 


Ree ee eee TEKKEN REA KEKE Eee eee Kee eRe ee eRe eee ee WOOO 9620 


BEGIN 
LOCAL HPseLPsSRCEsDESTsHPPTR,LPPTR3 
ZPOINT HPPTR & | PPTR To (AST CHAR OF HPs/P 
SI%*_oc HPs © 
SI%uS7473 
HPPTRy2SI3 ZHIGH PART 
SrteLoc LP3 
SitsSy1+73 
LPPTRt=SI3 ZLOW PART 
STtmInTOs STsaSl+a; 
DIt=rnToOs 
%START CHARACTER TRANSLATE LOOP 
2¢40¢ 
DESTiasDI3 
STRANSFER LOW & HIGH PARTS 
DItsHPPTR3 
DSt=y CHRS 
DIte_PPTR} 
OStxq CHR} 
SRCEs=SI3 ZSTORE SI FOR NEXT PASS THRU LOOP 
ZNOW FIND THE POINTER INTO TABLE APPROPRIATE TO LP 
SItRPOINTERSS 
LPCSyteSI+a)3 


SIts2Sc3 ZSI NOw POINTS INTO TABLE @® POINT DEPENDANT ON LP 
DIteHESTs 
STS eSI+HP3 gSKIP SI THROUGH TABLE HP CHARS 


07003630 
07003640 
07003650 
070036460 
07003670 
07003680 
07003690 
07003700 
07003710 
07003720 
07003730 
07003740 
07003750 
07003760 
07003770 
07003780 
07003790 
07003800 
07003810 
07003820 
07003830 
07003840 
07003860 
07003870 


07003880 
07003890 


DSF=CHR} 
S1I%=SRCE))3 
DIt=sTABLES Olsanl+33 ZPOINT TO QMRK 
END CONVERTS 
BOOLEAN EBCDIC3 REAL EBTABLEANRS 
IF fF BCDC THEN 
BEGIN 
EBCDICI=2FALSE3 
MCC*PCEBTABLE) INX NOT 1))-C2t1)8203 


END3 
STREAMCX8e"PACKETS™& YS="CONTINU"sZIS"END, "» 
EBPe"DATANZSS™*,INBUFF )3 
INBUFEizSy3 
ELSE BEGIN SIteINBUFF SOI S=sLnc Y3 
SI's INBUFF 3 
IF 3 Sc#pC THEN TALLY?#®7 
ELSE BEGIN 
DItwlLOC EBSD taNI +41; 
STs:=INBUFF3 
IF 6 SceDC THEN 
$yvOIO0 
TALLY$=43 
$VOID 07036351 
END END END3 
IF PTYPE = 4 THEN 
BEGIN PTYPE#e03 ERBCDIC?=TRUES 
EBTABLE AOR! sSETUPERTABLE} 
ENDS 
ELSE BEGIN WHILECQ1SWAITIOC@400000004+INBUFFS 
EBCDIcx@ 400000001 ,sFIRSTX4+ 
Ir EBCBIC THEN EBCOICCONVERTCINBUFF» 
EBTABLEADRsEBTABLEADR4+40) ELSE 
STREAMCQMKS#123BCLte1*ERCOICeINBUFF 3 
BEGIN 
Sree INBUFF3 
BeL CIF Sc=""" THEN JUMP OUT TO L193 
If SC#@14 THEN 
Lit BEGIN SJte_LOC AmKsSytaSye73 
DSt21 CHR} 
TALLY3=13 
SItsINAUFF3 
2¢36CIF SC=*>" THEN 
BEGIN INBUFFtsSl3 Ols*INBUFF 3 
Dsr1eLIT ts" 
ENDS 
Ir Sce"2" THEN 
BEGIN INBUFFsasI3 OLs=INBUFFS 
OSss LIT "fh" 
ENDS SIs=Sl443)) 


END} 

QMK PeTALLY3 
END; 

Qtsp OR Q3 


$ VOYOT 
INBUFF 85 GETSPACE (21091) + 23 
STREAMCCARDLOC)3 
BEGIN SI+CARDLOCS 


07003900 
07003910 
07003920 
07003950 
07009200 
07031200 
07031300 
07031400 
07031500 
07031600 
07032000 
07032100 
07034500 
07036220 
07036250 
07036260 
07936270 
07036280 
07036290 
07036300 
07036310 
07036320 
07036330 
07036390 
07039500 
07039600 
07039700 
07039800 
07059000 
07059010 
07060100 
07060200 
07066100 
07066200 
07066300 
07066350 
07066400 
07066500 
07066550 
07066600 
07066610 
07066620 
07066630 
07066635 
07066640 
07066650 
07966660 
07066665 
07066670 
07066700 
07066800 
07066850 
07066900 
07086000 
07101000 
20374401 
20374402 


2C036CIF Sca">" THEN 20374403 

BEGIN cARpLOceSIsprecaRplLOcspSe LIT "=" ENDS 20374404 

IF Sce"2" THEN 20374405 

BEGIN CARNLOC*SISDI©CARDLOC#0S¢ LIT "*" ENDS 20374406 

SleSI+13)) 20374407 

ENDS 20374408 

cIF KOUNT = "=" THEN EQUAL ELSE % THIS IS AS IN SYMBOL 20380000 
"DATADZ9"s 44» 41483010 


$# PATCH 891 FOR TSSMCP,XVI.O CONTAINS 8 CARDS, CORRECT 890 (DATAO029) 
$1! CORRECTS A MISPUNCH TN PATCH 890 (900) WHERE EBTABLE WAS SET UP WRONGLY 
$1 DEREK BRUCE ., MAY 1076 |, H,W,U, 


$1 

07003250 
LHEPHHHARERARER HAHAH AR AKER RHO RARER E RHA REAR AREER ERA ERE EEE A EEHEOTO03051 
07003252 
O22 aM PP22M pH 9799%, HDD DON NIDDM ENDOD0N, 07003344 
07003390 
SHKAHERHKARAHARAREA ALEC HRA K ERA AOR AKEA AEE ERA ERR ER A EEK EEE ee EEEBO7O03391 
07003392 
INBUFF « GETSPACE( 219001 ) + 23 07191000 

S#PATCH 892 FOR TSSwMCP CONTAINS 2 CARDS, CORRECT 890891 
007770675 2805770413 58067146616,8651 76473» 07003340 
INBUFF ¢ GETSPACEC21sTOBUFFERAREAVs1) + 23 07101000 


$1 THIS PATCH MODIFIES THE DATAO29 FEATURE CPATCH 890) SO THAT 
SUSINGLE QUOTE GOMING IN IS CHANGED 00 n6 = 5 
$3 By JHHs UCSC» 11 AUG 77 
$t MODIFIED 19 AUG 77 Tm USE AREA TYPING INTRODUCED IN PATCH 167 
$# PATCH 901 FOR TSSMCP CONTAINS 1 CARD, TERMINAL LOGIN MESSAGE ####eeR HERE EE SE 
$1 CHANGE THIS MATE EACH TIME ANY OTHER PATCHES ARE CHANGED, teetetee LOOK <<<ced 
$: BY TYP» UCSC MODIFYED wY Ore UCSC 

NSe35LIT%*esUCSC B5790 TSSMCP OF 24 AUG 77s "3 03595860 
FORCE SPEC ESE RE SECS LESCOL SOSLEOC ELEC SERCO ELE E PERE POSE CEES EPSP ES 
$# PATCH NUMBER 902 FOR TSSmCP CONTAINS 3 CARDSe AUTORN OPTION 


AUTORN = OPTION,(C1781)#» 00416640 
"AUTO", = "RNOO", X17% 41434800 
IF AUTORN THEN BEGIN RUNUMBER!243 STARTADECK(O)3 ENDS 44424400 


$3 
$3: 3 CARDS DELETE THE RNALL OPTION USED WITH SKAREDISK ONLY AND 
$: REPLACE IT WITH THE NEW AUTORN OPTION WHICH WILL AUTOMATICALLY 
$t! START PSEUDO READERS WHEN THE SYSTEM IS STARTED UP 
$t BY JHH MARK XVI,0 
$t SEE ALSO BROCK U, PATCH 571 FOR TSSMCP 
(ERP EPCSE RECESS ESCO SEP ES EPEAT SC EPP E CR CECE PRL EPSRC RSS RCP PCS S EES ECS. | 
S#PATCH NUMBER 903 FOR TSSMCP CONTAINS 2 CARDS 
TF LO823 THEN BEGIN LOt=273 HIt=283 END ELSE 371959375 
IF LO#27 THEN BEGIN |O8203 HItei53 END ELSE GO TO DUNS 37195400 
$: THIS PERMITS PROCe FINDINPUT TO FIND UNIT PRAe QBSERVE THAT PRA 
$: Is EXPECTED TO HaVE REEL NUMBER 1 MOUNTEDs UNLESS SOME OTHER REEL 
$t NyMBER IS DESIGNATED EXPLICIT TL Ye JHHEOR AUG, 24» 1976 
SEEN RA eR TEEN E EKER ETRE RED ee 
$# PATCH 905 FOR TSSMCP,XVI.O CONTAINS 1 CARD, DELETE UNUSED LABEL DECLARATION 
$$ BY DR» YCSCs» OCT, 4s 1976 
LABEL PX} 38660000 
BS ae ee a Re a ERENT H EEK ERE TKERREKEAD KEE 
$# PATCH NUMBER 917 FOR TSSMCP,XVIe00 CONTAINS 07 caRDS, "PBT ON MTX RW/L CPRN", 
STREAMCMTX* TINUCUNITI ePRNGPRNTABLECUNITI e£L3I0O81Ee¥517"GRK 12530010 
DeTe#SPACE(10))3 Z547"GRK 12530020 


BEGIN SIl*LOC MTX$ SleSI+53 DS*BLIT"#PBT ON "33517 
nSe3cHRS OS*7LIT" RW/L ("$3 ODSeSDECs %517 

NSe2LIT*)e"3 OleDIe73 PSe*4FILL3  %517=°GRK 

ENn STREAMS %517=GRK 
SPOUTCT)3 %517°GRK 


$$ THIS PATCH WILL SPOUT A RW/l MESSAGE WHEN A PBT IS LOCKED BY cOM19 
$: TO MAKE IT EASIER Tn DETERMINE LATER WHICH TAPE WAS ACTUALLY 
$2 PRINTED. 


$1 G,ReKENNEDY 21MAR75~4 BROCK Ue PATCH 817 
$! SEE ALSO UCSC TSSMCP PATCH 940 = BROCK U, PATCH 540 
PRSERERESSASALERSAASELIEPELEPESIE CEES R REESE SSS ELACEAACALATEAEEAEELEEEE TSS 


$# PATCH NUMBER 950 FOR TSSMCP.XVI2e00 CONTAINS 03 CaROS,.CLEANUP CANDE ST 


$ SET OMIT ZSETUP SHORT/LONG CARRIAGE MESSAGE %550-GRK 
$ POP OMIT %550"GRK 
Z**% SPOUTITCT,CHRGK+1)23 SHORT/LONG CARRIAGE MSG %550"GRK 


$$ 

$: THIS PATCH CLEANS UP SOME oF THE CANDE*RELATED MESSAGES A BIT. 

$3: 1. DONT BOTHER BUILDING/SPNHUTING THE "SHORT/LONG CARRIAGE" MESSAGE. 
$2 

$4 GeR KENNEDY OBMAR76, BROCK Us PATCH 550 

ER ERS ECR SERPS OSE RSE PO SEP LECLERC ASE RSE ESSEC RSE SEE ERCP SEES OL ESE 2 
$# PATCH 991 FOR TSSMCP CONTAINS 9 CARDS. SCHEDULER CHANGE 

$: THyS PATCH ATTEMPTS TO YMPROVE EFF YCYENCY OF TSSMCP BY 

$: REDUCING UNNECESSARY SWAPPING WITHOUT HURTING TERMINAL JOBS. 

$1 qe THE TIME SLICE 1S MADE MUCH LONGER FOR JOBS THAT USE A LOT 

$! oF CORE. 

$3 2. BATCH JOBS WHICH USE UP THEIR TIME SLICE ARE SWAPPED OUT 


$1 WITH "TIMEND* aS BEFORE» BUT TERMINAL JOgS ARE SWaPPED OUT 

$1 AT "FORCEND", GIyING THEM PRECEDENCE OVER THE "TIMEND" JOBS. 
$t 3, BATCH JOBS WHICH ARE FORCED OUT ARE SWAPPED QUT WITH "TIMEND" 
$1 RATHER THAN AT "FORCEND™, 

$3 


NTL©CSENCMIX]*30 + COUNTEMIXIx14 © NTL1)2*8 + 2083 
IF PRTROWCMIXIeCPSFIS3 THEN PRTROWEC MIX). CPSFIeO3 ZUCSC KLUDGE 
TF NT382 THEN STOPM ELSE SWApC 
Ip LOGLINE.£€33!7]40 THEN 
Ip NOT SCHEDLINEELOGLINE*£4088)) THEN 
FORCESWAP ELSE TIMEND ELSE TIMENDs1)3 
BEGIN SWAPCIF LOGLINEsf£9327140 THEN 
IF NOT SCHEDLINECLOGLINE,€(40:8)) THEN FORCESWAP 
ELSE TIMEND ELSE TIMENDs1)3 GO TO RETURN ENDS 

$1 
$t BY JeHes UCSC» 7 APR 773 REVISED 16 APR 77 REVISED 26 APR 77 
(PRS E PERO SESESEVSLOLSCEI PS CEPTS EOP CCS CSS SESS CC ECC RSET RSET CCE SECS SSeS ee SS 
$# PATCH 992 FOR TSSMCP CONTAINS 4 CARDSe LABEL THE HIGHSPEED PAPER TA 
$t AUTOMATICALLY ASSIGN A LaBEL TO THE HIGH@SPEED PaPER TaPE READER PORT 
$1 WHENEVER IT GOES REAnY 
$1 BY ORe UCSC FEB. ine 1977 
$ VOrDT 

PAPER! LABELTABLECU) ¢ MULTITABLECUI « "PRA "3 

ROCTABLECU) © 810900000003 % REEL NR, * 1 
GO TO COMMONS 

Ge ee ee We REREAD EERE 
$# PATCH 993 FOR TSSMCP CONTAINS 2 CARDSe AUTO#RY OF SCHEDULE LINES AT H 
$1 BY DR» UCSC FEBe 1029 1977 


12530030 
12530040 
12530050 
12530060 
12530070 


UFF ¢GRK, 
05751400 
05754600 
05756500 


21111540 
21212010 
48030000 
48030010 
48030015 
48030020 
48038400 
48038405 
48038410 


PE ROR 


22199000 
22201200 
22201400 
22201600 


A 


FOR NTiei STEP 1 UNTIL LMAX DO 44430000 
IF SCHEDLINECNT12 THEN SCHEDBUSYCNT,) © 03 44430100 
(SRC CRRESS ORS SPORE SOCSC SE POEL E PERT CC ECCLES PELE CCE O PREPRESS PELE CSAS ESSE SE SE SY 


$# PATCH 995 FOR TSSMCP CONTAINS 2 CARDS» DUPLICATE FORWARD REFERENCES 00000100 


$1 WHERE THERE a~RE 2 OR MORE FORWARD REFERENCES TO THE SAME 00000200 
$t PROCEDURE» THIS PATCH DELETES ALL BUT THE 1ST FORWARD REFERENCE, 00000300 
$t BY DR» UCSC FEB. 35 1977 00000400 
$? LINE 00364000 = LINE 06020500 00000500 
$t LINE 00431500 = LINE 03099000 00000600 
$ VOIDT 03099000 
$ VOIDT 06920500 
(PRES R SCRAPES SSPE SESE R CPO SEP ESSEC ERASE CREE E REPOS EP RPE CREP PREECE ESE EEO L ES 

$# PATCH NUMBER 996 FOR TSSMCP CONTAINS 1 CARDe AUTO=LOGOUT AT MIDNIGHT 
DEFINE MIDNIGHT = gEGIN LOGOUT$ XCLOCKt=XcLOCK=WITCHINGHOURS 02393200 


$t 


$t THyS AUTOMATYCALLY CHANGES THE LOG FYLE AT MyONYIGHT» SO THAT 
$1EACH OG FILE CONTAINS ONLY ONE DAY*S WORTH OF LOGGINGs TO 
$1 FACILITATE ANALYSIS. 


$3 BY JHe UCSC» 01/49/77 


RPP PRPS RPE SEE C ECCS SE PREPS POPP SCEPC CECE REE RR CE PRPC PCC CREE ER ERE SELES 2S 
S$#PATCH NUMBER 998 FOR TSSMCP CONTAINS 2 CARDS. MIXMAX»MAXLMAX 


DEFINE 


MIXMAX= 1083 


DEFINE MAXLMAX#20 #3 


GS 8 te tee ee RARER EEA EEE KEKE EEK AEH RARER KEARKEKE EKER 


LABEL 


OOOOOO00OLINE 


00004000 
% SHUD Be ABT 8 + ACTUAL MAX LINES 00004500 


00178065CC EX O/RSCOMMON®ISFILE S=PATCHES/TSSMCPSFILE LINES INE PRINTSENDe 


7R 


